

LD 
LD 




LD 




PUSH 
LO 





LD 

LD 

CALL 
LD 
JP 




! l 

I k 





H 






>r w ■■ 



\V 



TRSDOS/LS - DOS 6.x 





A,(BUFFERi+l) 

r\ A 



:P/u buffer ri -order add 



n 



0,(1 

9 \ * 


Y+9) 






1FH 




A, 2 




F A 




HL, ( 




WRSY 




A f 1c 






3 



BC 
BC 

A,B 






NZ.DOFIL0 



OMnn4 




r* 



16 



fa 'A? 



1 



/** 




;Move name/ext into dest 

;P/u dir cyl of dest 
;Rcvr DEC of source 



;Ca1c dir sec 
: source SYS 





for 
le 



;P/u buffer ptr for dest 
;Write the dir to dest 
; Ini t "Dir write error 

; and quit on bad write 



entries were transferred prior 



;Rcvr DEC of source 



or 



\/ 









;6et 
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OGICAL 
SYSTEMS 
INC. 



8970 North 55th Street 
P.O. Box 23956 
Milwaukee, Wl 53223 



Copyright (C) 1982, 1983, 1984 by Logical Systems, Inc. 
All Rights Reserved 



Introduction to Volume One 

This is volume one of three in the set of commented source code listings for 
LS-DOS/TRSDOS 6.2, as assembled for the TRS-80 Model 4/4P computer. This volume 
contains the resident part of the operating system as well as the pieces loaded as 
overlays. The resident portion of the DOS is contained in the files BOOT/SYS 
(Lowcore) and SYS0/SYS (Sysres). The overlays are files SYS1 through SYS13, excluding 
the three Library modules (SYS6-SYS8). 

Each file will be preceded by a brief description of its functions. Cross reference 
listings for the two resident files will be found immediately following the assembly 
listings. The overlay files are not cross referenced, but will have a symbol table 
listing following each assembly listing. 

Two EQUate files are generated by the assembly and cross reference of the resident 
portion of the DOS. These two files are then used by the overlays to reference the 
main DOS areas. The files, LDOS60/EQU and SYS0/EQU, will be found in Appendix A in the 
rear of this volume. The standard system debugger, SYS5, also generates an EQUate 
file for use by SYS9, the extended debugger. This file is listed at the end of 
Appendix A. 

This book should by no means be considered a tutorial on assembly language or on the 
workings of the LS-DOS/TRSDOS operating system. It is only the commented source code 
used to assemble the previously mentioned operating systems. It can be used for 
reference purposes and to view examples of interfacing outside drivers, filters and 
other programs to the DOS and to each other. It is not meant to replace the normal 
technical reference manual available from the computer manufacturer. 



This product is sold on an as-is basis, and is totally unsupported by Logical Systems, 
Inc. No questions regarding any aspect of the source code will be answered by LSI 
customer or technical support. Support for LS-DOS users is provided through their OEM 
dealer. Support for TRSDOS 6.x is provided by Tandy Corporation. Comments or 
suggestions may be sent to Logical Systems, Inc. in care of the Source Code Technical 
Editor, but correspondence concerning these comments will not be made. 



Copyright (C) 1982, 1983, 1984 by Logical Systems, Inc. 
All Rights Reserved 



LOWCORE/ASM - Low memory assignments and BIOS 

This is the source code that assembles the file BOOT/SYS as a core image (no load 
information) file. The Lowcore file contains the bootstrap loader 9 certain low memory 
storage locations s the I/O drivers, the DCBs and DCTs, memory bank handling, byte I/O 
routines, and other miscellaneous code. The file normally occupies track on a 
system disk, and is read into memory by the computer's boot ROM. At that point, 
execution is transferred to the Lowcore boot loader and Sysres is loaded. 

The Lowcore source code is divided into several subsections. In order of appearance, 
they are: 

DCB area - Default DCBs for the standard I/O devices. 

BOOT - Boot loader for Sysres and CRTC initialization. 

SYSINFO & DCT - The stack area, input buffer, and default DCTs. 

IODVR - Byte I/O handling for standard and non-standard devices. 

MULDIV - Math routines used by the system. 

CLOCKS - Heartbeat processing, vidram and bank switching. 

KIDVR - The keyboard driver and type ahead processing. 

DODVR - The video driver and VDCTL SVC handler. 

PRDVR - The printer driver. 

FDCDVR - The floppy disk driver. 

A cross reference of all non-local labels follows the assembly listing. 
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The Source 


SYSTEM Fil( 


2S 


LOWCORE - LS- 


DOS 6.2 Page 00001 






00100 ;LOWCORE/ASM - 


Low Memory Assignments 


0000 




00110 


TITLE 


<LOWCORE - LS-DOS 6.2> 


0000 




00120 0MOD2 


EQU 


00 


;Set MOD2 false 


FFFF 




00130 0MOD4 


EQU 


-1 


;Set MOD4 true 






00140 , 














00150 




LDOS 6 


.x Low Core RAM s 


torage assignments 






00160 




Copyright (C) 1982 by Logical Systems, Inc. 






00170 














00180 




Define 


switches for international or domestic 






00190 










0000 




00200 GGERMAN 


EQU 







0000 




00210 ^FRENCH EQU 











00220 


IF 


@GERMAN.AND.(3FRENCH 






00230 


ERR 


'Can^t do both 


French and German' 






00240 


ENDIF 










00250 


IF 


@GERMAN.OR.@FRENCH 






00260 @INTL 


EQU 


-1 








00270 (3USA 


EQU 


00 








00280 @HZ50 


EQU 


-1 








00290 


ELSE 






0000 




00300 (aiNTL 


EQU 


00 




FFFF 




00310 0USA 


EQU 


-1 




0000 




00320 @HZ50 
00330 
00340 ; 


EQU 
ENDIF 


00 




0000 




00350 STARTS 
00360 ; 


EQU 











00370 ; 


These 


EQUs are detailec 


1 in SYSRES 






00380 ; 








000E 




00390 FDDINT$ EQU 


0EH 




001 B 




00400 PDRV$ 


EQU 


1BH 




002 B 




00410 TIMSL$ 


EQU 


2BH 




002C 




00420 TIMERS 


EQU 


2CH 




002 D 




00430 TIMES 


EQU 


TIMERS+1 




0033 




00440 DATES 


EQU 


33H 




003E 




00450 INTVCS 


EQU 


3EH 




006A 




00460 FLGTABS EQU 


6AH 




006C 




00470 CFLAGS 


EQU 


FLGTABS+'C- 


A 




006 D 




00480 DFLAGS 


EQU 


FLGTABS+'D'- 


A 




0072 




00490 IF LAGS 


EQU 


FLGTABS+'I'- 


A 




0074 




00500 KFLAGS 


EQU 


FLGTABS+'K'- 


A 




0076 




00510 MODOUTS 


EQU 


FLGTABS+'M'- 


A 




0077 




00520 NFLAGS 


EQU 


FLGTABS+'N'- 


A 




0078 




00530 OPREGS 


EQU 


FLGTAB$+*0'- 


A 




007 B 




00540 RFLAGS 


EQU 


FLGTABS+'R'- 


A 




007C 




00550 SFLAGS 


EQU 


FLGTABS+'S'- 


A 




007F 




00560 VFLAGS 


EQU 


FLGTABS+'V'-'A 




0089 




00570 GKITSK 
00580 ; 


EQU 


FLGTABS+31 




0200 




00590 
00600 ; 


ORG 


200H+STARTS 








00610 ; 


Page 2 


- Device Contro" 


1 Blocks 






00620 ; 








0200 00 


00630 BURS 


DB 


00 H 


;Bank use RAM 


0201 


FE 


00640 BARS 


DB 


0FEH 


;Bank available RAM 


0202 


14 


00650 LBANKS 


DB 


20 


;Dir cyl & logical bank 


0203 


01 
00 00 


00660 JCLCBS 


DB 


1,0,0 


;Mini-DCB for JCL gets 


0206 


F40F 


00670 DVRHIS 


DW 


DVRENDS 


;Start of low I/O zone 


0208 05 


00680 KIDCBS 


DB 


5 


; Permit CTL, GET 


0209 F008 


00690 




DW 


KIDVR 
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The Source 


SYSTEM Fil 


es 




LOWCORE - LS-DOS 


6.2 Page 00002 


020B 00 


00700 


DB 




0,0,0, 'KI' 




00 00 4B 49 










0210 07 


00710 D0DCB$ 


DB 




7 


;Permit CTL, PUT, GET 


0211 880B 


00720 


DW 




DODVR 




0213 00 


00730 


DB 




0,0,0, 'DO' 




00 00 44 


4F 










0218 06 


00740 PRDCB$ 


DB 




6 


; Permit CTL, PUT 


0219 010E 


00750 


DW 




PRDVR 




021B 00 


00760 


DB 




0,0,0, 'PR' 




00 00 50 


52 










0220 15 


00770 SIDCB$ 


DB 




15H 


;Routed to *KI 


0221 0802 


00780 


DW 




KIDCB$ 




0223 0D 


00790 


DB 




0DH,0,0,'Sr 




00 00 53 


49 










0228 17 


00800 S0DCB$ 


DB 




17H 


; Routed to *D0 


0229 1002 


00810 


DW 




DODCB$ 




022B 0F 


00820 


DB 




0FH,0,0,'SO' 




00 00 53 


4F 










0230 0A 


00830 JLDCB$ 


DB 




0AH,0,0,0AH,0,0, 


'JL' 


00 00 0A 00 00 4A 4C 










0238 


00840 S1DCB$ 


EQU 




$ 


;lst spare DCB 


0031 


00850 DCBKL$ 
00860 ; 


EQU 




JLDCB$&0FFH+1 


;Non-ki liable DCB's 




00870 ; 


Now 


load the BOOT loader 


- part in this page 




00880 ; 










0238 


00890 *GET 


B00T4:3 








00010 ;B00T4/ASM - 


LS 


-DOS 6.2 




0238 


00020 


SUBT 


TL 


'<Bootstrap Loadi 


er>' 
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Bootstrap Loader 



00040 *M0D 
00050 ; 



0040 


00060 KEYIN 


EQU 


40 H 




0066 


00070 


NMIVECT EQU 


66H 




021B 


00080 


DSPLY 


EQU 


21BH 




1200 


00090 


BUFFER 


EQU 


1200H 




43F6 


00100 
00110 


BOOTBUF 

9 


EQU 


43FFH-9 






00120 


9 


Boot 


loader routine read 


in by ROM, along with 




00130 


9 


the 


lowcore I/O drivers 






00140 


3 


This 


section loads in SYSRES 




00150 


3 








0238 FD217004 00160 LBOOT 


LD 


IY 9 DCT$ 


;Set IY for FDCDVR use 


023C FD7E09 


00170 




LD 


A,(IY+9) 


; Directory track is 


023F FD7705 


00180 




LD 


(IY+5) 9 A 


; the current track 


0242 3E04 


00190 




LD 


A, 4 




0244 327B00 


00200 




LD 


(FLGTABS+'R'-'A' 


) 9 A ;Set retries 


0247 3EC9 


00210 




LD 


A,0C9H 




0249 320E00 


00220 




LD 


(FDDINT$) S A 


;Return for disk driver 


024C 3E12 


00230 




LD 


A 9 18 


;5" sectors/track, dden 


024E FDCB046E 


00240 




BIT 


5 9 (IY+4) 


;Dbl sided? 


0252 2801 


00250 




JR 


Z 9 NOTDBL 




0254 87 


00260 




ADD 


A 9 A 


;Adjust to 36 sect/cyl 


0255 32A502 


00270 
00280 


NOTDBL 

3 


LD 


(SECTRK),A 






00290 


3 


Set u 


p for a fragmented 


file 




00300 


3 








0258 D9 


00310 




EXX 






0259 0E06 


00320 




LD 


C 9 6 


;Sectors/gran 


025B CDB102 


00330 




CALL 


GETEXT 


;Pick up extent 1 


025E D9 


00340 
00350 


3 


EXX 






025F CD6802 


00360 




CALL 


LOAD 


;Read in sysres 


0262 3EFB 


00370 




LD 


A,0FBH 


;EI instruction 


0264 32950F 


00380 




LD 


(DISKEI),A 


; stuffed into FDCDVR 


0267 E9 


00390 
00400 


3 


JP 


(HL) 


;Continue system init 


0268 CD9702 


00410 


LOAD 


CALL 


RDBYTE 


;Get type code 


026B 3D 


00420 




DEC 


A 




026C 200C 


00430 




JR 


NZ,LOAD2 


; Bypass if not type 1 


02 6 E CD8802 


00440 




CALL 


GETADR 


;Get blk Ten & load adr 


0271 CD9702 


00450 


LOAD1 


CALL 


RDBYTE 


; Start reading the block 


0274 77 


00460 




LD 


(HL) 9 A 


; Stuff into memory 


0275 23 


00470 




INC 


HL 


;Bump memory pointer 


0276 10F9 


00480 




DJNZ 


LOAD1 


;Loop for entire block 


0278 18EE 


00490 
00500 


3 


JR 


LOAD 


;Restart the process 


027A 3D 


00510 


L0AD2 


DEC 


A 


;Test if type 2 (traadr) 


027B 280B 


00520 




JR 


Z, GETADR 


;Ah 9 go if transfer addr 


027D CD9702 


00530 




CALL 


RDBYTE 


; Assume comment, 


0280 47 


00540 




LD 


B 9 A 


; get comment length 


0281 CD9702 


00550 


L0AD3 


CALL 


RDBYTE 


; & ignore it 


0284 10FB 


00560 




DJNZ 


LOAD3 




0286 18E0 


00570 
00580 




JR 


LOAD 


;Continue to read 




00590 




got the transfer address 


> type code 




00600 










0288 CD9702 


00610 GETADR 


CALL 


RDBYTE 


;Get block length 


028B 47 


00620 




LD 


B,A 




028C CD9702 


00630 




CALL 


RDBYTE 


;Get lo-order load addr 
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028F 6F 


00640 


LO 


L,A 




0290 05 


00650 


DEC 


B 


;Adj length for this byte 


0291 CD9702 


00660 


CALL 


RDBYTE 


;Get hi -order load addr 


0294 67 


00670 


LD 


H,A 




0295 05 


00680 


DEC 


B 


;Adj length for this byte 


0296 C9 


00690 
00700 


RET 








00710 


; routine to read a byte 






00720 








0297 D9 


00730 RDBYTE EXX 




; Switch memory/ buf ptrs 


0298 2C 


00740 


INC 


L 


;Bump buf pointer 


0299 2013 


00750 


JR 


NZ.RDB2 


; Bypass disk i/o if more 


029B C5 


00760 


PUSH 


BC 




029C 0609 


00770 


LD 


B,9 


;Read sector function # 


029E CD7004 


00780 


CALL 


DCT$ 


;Get another sector 


02A1 CI 


00790 


POP 


BC 




02A2 1C 


00800 


INC 


E 


;Bump sector counter 


02A3 7B 


00810 


LD 


A,E 




02A4 D600 


00820 


SUB 


$-$ 


;Is this the last sector 


02A5 


00830 SECTRK EQU 


$-1 




02A6 2002 


00840 


JR 


NZ S RDB1 


; on the cylinder? 


02A8 5F 


00850 


LD 


E,A 


;Yes, restart at 


02A9 14 


00860 


INC 


D 


; & bump the cylinder up 


02AA 05 


00870 RDB1 DEC 


B 


;Dec sectors this extent 


02AB CCB102 


00880 


CALL 


Z,GETEXT 


;Get next extent if 


02AE 7E 


00890 RDB2 LD 


A,(HL) 


;P/u a byte 


02AF D9 


00900 


EXX 




;Exc mem/ buf pointers 


02B0 C9 


00910 
00920 


RET 








00930 


; Load 


DE track, sector, B 


sectors this extent 




00940 










00950 ( 


SETEXT 






02B1 DD23 


00960 


INC 


IX 


; Index directory entry 


02 B3 DD23 


00970 


INC 


IX 


;Pt at grans this ext. 


02 B5 DD7E00 


00980 


LD 


A,(IX) 




02B8 F5 


00990 


PUSH 


AF 


;Save for later 


02 B9 07 


01000 


RLCA 






02 BA 07 


01010 


RLCA 




formalize start gran 


02 BB 07 


01020 


RLCA 






02 BC E607 


01030 


AND 


7 




02 BE CDCE02 


01040 


CALL 


MULTCA 


;Start gran * grans/sec 


02C1 5F 


01050 


LD 


E,A 


;This is start sector 


02C2 Fl 


01060 


POP 


AF 




02C3 E61F 


01070 


AND 


00011111B 


;Get total grans 


02C5 3C 


01080 


INC 


A 


; this extent 


02C6 CDCE02 


01090 


CALL 


MULTCA 


; * sect/gran 


02C9 47 


01100 


LD 


B,A 


;Sectors this extent 


02CA DD56FF 


01110 


LD 


D,(IX-1) 


;Cyl this extent 


02CD C9 


01120 
01130 , 


RET 








01140 ; 


Short 


multiply C * A 






01150 ; 








02CE C5 


01160 * 


1ULTCA PUSH 


BC 


;Save sect/gran in C 


02CF 57 


01170 


LD 


D,A 




02 D0 AF 


01180 


XOR 


A 




02D1 0608 


01190 


LD 


B,8 




02D3 87 


01200 h 


1LTCA ADD 


A,A 




02D4 CB21 


01210 


SLA 


C 




02D6 3001 


01220 


JR 


NC,MLTCA1 
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02 D8 82 


01230 


ADD 


A,D 




02D9 10F8 


01240 MLTCAl DJNZ 


MLTCA 




02DB CI 


01250 


POP 


BC 




02 DC C9 


01260 
01270 , 


RET 








01280 , 


Initial 


ize the CRTC 






01290 , 










01300 ] 


NITCRTC 






02 DD 01880F 


01310 


LD 


BC,15<8!88H 


Count, CRTC address reg 


02E0 21FD02 


01320 


LD 


HL, CRTCTAB 




02E3 7E 


01330 $A1 LD 


A,(HL) 




02E4 ED41 


01340 




! 


Pass reg # to CRTC 


02 E6 D389 . 


01350 




! 


Pass value to CRTC reg 


02E8 2B 


01360 


DEC 


HL 


Backup to next value 


02E9 05 


01370 


DEC 


B 


Jo next lower reg 


02EA F2E302 


01380 


JP 


P,$A1 




02ED C9 


01390 


RET 






02 EE 63 


01400 


DB 


99 


.Horiz total MD 


02 EF 50 


01410 


DB 


80 


Horiz displayed MD 


02F0 56 


01420 


DB 


86 


,Horiz sync position MD 


02F1 08 


01430 


DB 


8 


, Horiz sync width 


02F2 18 


01440 


DB 


24 


.Vertical total 


02F3 00 


01450 


DB 





Vertical total adjust 


02F4 18 


01460 


DB 


24 


.Vertical- displayed 


02F5 18 


01470 


DB 


24 


.Vertical sync position 


02F6 00 


01480 


DB 





.Interlace mode 


02F7 09 


01490 


DB 


9 


Maximum scan line addr 


02F8 65 


01500 


DB 


65 H 


;Cursor start 


02F9 09 


01510 


DB 


9 


.Cursor end 


02 FA 00 


01520 


DB 





.Start address (H) 


02FB 00 


01530 


DB 





.Start address (L) 


02 FC 00 


01540 


DB 





.Cursor (H) 


02FD 00 


01550 CRTCTAB DB 





.Cursor (L) 


02FE 00 
00 


01560 


DC 


-$&0FFH,0 




01570 










01580 


; System 


BOOT entry point, 


loaded by ROM 




01590 








0300 


01600 ( 


:ORE$ DEFL 


$ 




4300 


01610 


ORG 


4300H 




4300 00 


01620 E 


300T NOP 






4301 FE14 


01630 


CP 


14H 


.Directory track location 


4302 


01640 I 


3IRTRK EQU 


$-1 




4303 F3 


01650 


DI 






4304 3E86 


01660 




j 


Bring up the RAM 


4306 D384 


01670 








4308 327800 


01680 


LD 


(OPREG$),A 




430B 2100F8 


01690 


LD 


HL,CRTBGN$ 


Clear video RAM 


430E 1101F8 


01700 


LD 


DE,CRTBGN$+1 




4311 017F07 


01710 


LD 


BC,CRTSIZE-1 




4314 3620 


01720 


LD 


(HL),' ' 




4316 EDB0 


01730 


LDIR 






4318 21CD43 


01740 


LD 


HL,NMIRET 


Set NMI vector 


431B 226700 


01750 


LD 


(NMIVECT+1),HL 




431E 3EC3 


01760 


LD 


A,0C3H 




4320 326600 


01770 


LD 


(NMIVECT),A 




4323 3EC9 


01780 


LD 


A,0C9H ; 


Stuff return for ints 


4325 323800 


01790 
01800 


LD 

> 


(38H),A 
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01810 ; 


Read 


the first 16 sectors of track 




01820 ; 








4328 210002 


01830 


LD 


HL,START$+200H 


;Pt to page 2 


432B 55 


01840 


LD 


D S L 


; Ini t to track S sec 


432C 5D 


01850 


LD 


E,L 




432D CD7743 


01860 RDBOOT 


CALL 


RDSEQ 


;Read a sector 


4330 24 


01870 


INC 


H 


;Bump to next page 


4331 1C 


01880 


INC 


E 


;Bump to next 


4332 3E10 


01890 


LD 


A, 16 




4334 BB 


01900 


CP 


E 


;Loop if more 


4335 20F6 


01910 


JR 


NZ,RDBOOT 




4337 CDDD02 


01920 
01930 ; 


CALL 


INITCRTC 


initialize the CRTC 




01940 ; 


Now s 


et up to load SYSRES 




01950 ; 








433A 3A0243 


01960 


LD 


A,(DIRTRK) 


;P/u dir cyl 


433D 327904 


01970 


LD 


(DCT$+9) S A 


;Update DCT to show DIR 


4340 57 


01980 


LD 


D 9 A 


;Set starting track and 


4341 1E00 


01990 


LD 


E s 


; init to read the GAT 


4343 CD7443 


02000 


CALL 


RDSECT 


; into BUFFER 


4346 3ACD12 


02010 


LD 


A s (BUFFER+0CDH) 


; Update DCT$ to show 


4349 E620 


02020 


AND 


20H 


; the # of sides 


434B 217404 


02030 


LD 


HL s DCT$+4 




434E B6 


02040 


OR 


(HL) 




434F 77 


02050 


LD 


(HL) S A 




4350 1E04 


02060 


LD 


E s 4 


;Pt to SYS0 dir sector 


4352 CD7443 


02070 


CALL 


RDSECT 


;Read the SYS0 dir sec 


4355 3A0012 


02080 


LD 


A, (BUFFER) 


;Test if system disk 


4358 E610 


02090 


AND 


10H 




435A 282D 


02100 


JR 


Z, NOTSYS 


;Go if not 


435C 211D12 


02110 


LD 


HL,BUFFER+21+8 


;SYS0 extent info 


435F 11F643 


02120 


LD 


DE,BOOTBUF 


;Use 43FF-8 


4362 010800 


02130 


LD 


BC S 8 




4365 EDB8 


02140 


LDDR 




;Store 1st four extents 


4367 D5 


02150 


PUSH 


DE 


;Pt IX to 1 byte 


4368 DDE1 


02160 


POP 


IX 


; before extent info 


436A D9 


02170 


EXX 






436B 21FF12 


02180 


LD 


HL,BUFFER+255 


;Init to buffer end 


436E D9 


02190 


EXX 






436F C33802 


02200 


JP 


LBOOT 


;Load SYSRES 


4372 00 
00 


02210 


DB 


0,0 


;Padding for posn 


02220 ; 










02230 ; 


routine to read a sector 




02240 ; 








4374 210012 


02250 RDSECT 


LD 


HL, BUFFER 


;Set buffer 


4377 0605 


02260 RDSEQ 


LD 


B,5 


; Init retry counter 


4379 C5 


02270 RDS1 


PUSH 


BC 


;Save counter 


437A E5 


02280 


PUSH 


HL 


;Save for retries 


437B CD9643 


02290 


CALL 


READ 


;Attempt read 


437E El 


02300 


POP 


HL 




437F CI 


02310 


POP 


BC 




4380 E61C 


02320 


AND 


1CH 


;Mask status 


4382 C8 


02330 


RET 


Z 


;Return if no error 


4383 10F4 


02340 


DJNZ 


RDS1 


;Loop for retry 


4385 21E043 


02350 GOTERR 


LD 


HL,DISKERR 


;*' Disk error" 


4388 DD 


02360 


DB 


0DDH 


;Hide next instruction 


4389 21EA43 


02370 NOTSYS 


LD 


HL,NOSYS 


;"No system" 


438C 010A00 


02380 


LD 


BC.ERRLEN 
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438F 1193FB 


02390 




LD 


DE s 80*ll+CRTBGN$+35 ;Middle of screen 


4392 EDB0 


02400 




LDIR 






4394 18FE 


02410 
02420 


HALTS 

s 


JR 


HALTS 


;Wait for RESET 


4396 01F481 


02430 READ 






;Set DDEN, DS1 S d.s. port 


4399 ED41 


02440 








;Select it 


439B 0D 


02450 




DEC 


C 


;Point C to data reg 


439C 3E18 


02460 




LD 


A.18H 


;Seek command (6 ms) 


439D 


02470 B00TST$ EQU 


$-1 


;Set for boot step rate 




02480 




IFNE 


B00TST$,439DH 






02490 




ERR 


'Boot step out 


of position' 




02500 




ENDIF 






439E ED51 


02510 








;Set desired track 


43A0 CDD943 


02520 




CALL 


FDCMD 


;Pass command & delay 


43A3 DBF0 


02530 


SEEK1 


IN 


A,(0F0H) 


;Get status 


43A5 CB47 


02540 




BIT 


M 


;Busy? 


43A7 20FA 


02550 




JR 


NZ,SEEKl 




43A9 7B 


02560 




LD 


A,E 


;Set sector register 


43AA D3F2 


02570 










43AC 3E81 


02580 




LD 


A.81H 


;Set DDEN & DS1 


43AE D3F4 


02590 










43B0 D5 


02600 




PUSH 


DE 




43B1 1102C1 


02610 
02620 




LD 


DE,81H!40H<8!2 


;D=DS1 + DDEN + WSGEN 
;E=Mask to see DRQ 


43B4 3E80 


02630 




LD 


A,80H 


;FDC READ command 


43B6 CDD943 


02640 




CALL 


FDCMD 


;Pass to ctrlr & set B=0 


43B9 3EC0 


02650 




LD 


A,0C0H 


;Enable INTRQ & timeout 


43BB D3E4 


02660 










43 BD DBF0 


02670 READLP1 






;Grab status 


43BF A3 


02680 




AND 


E 


;Test bit 1 


43C0 28FB 


02690 




JR 


Z,READLP1 




43C2 EDA2 


02700 




INI 






43C4 7A 


02710 




LD 


A,D 


;Set DDEN & DS1 & WSGEN 


43C5 D3F4 


02720 READLP2 






;Continue to select 


43C7 EDA2 


02730 




INI 




; while inputting 


43C9 20FA 


02740 




JR 


NZ,READLP2 




43CB 18FE 


02750 




JR 


$ 


;Wait for NMI 


43CD Dl 


02760 


NMIRET 


POP 


DE 


;Pop interrupt ret 


43CE Dl 


02770 




POP 


DE 


;Restore DE 


43 CF AF 


02780 




XOR 


A 


;Disable INTRQ & timeout 


43D0 D3E4 


02790 










43 D2 3E81 


02800 




LD 


A.81H 


;Reselect drive 


43 D4 D3F4 


02810 










43 D6 DBF0 


02820 








;Get status 


43 D8 C9 


02830 




RET 






43D9 D3F0 


02840 


FDCMD 






;Give cmd to ctrlr 


43DB 0618 


02850 




LD 


B,24 


;Time delay 


43DD 10FE 


02860 




DJNZ 


$ 




43DF C9 


02870 




RET 






43E0 44 


02880 


DISKERR 


DB 


'Disk error' 




69 73 6B 
72 
43EA 4E 


; 20 65 


72 72 6F 






02890 


NOSYS 


DB 


'No system * 




6F 20 73 


79 73 


74 65 6D 






20 












000A 


02900 ERRLEN 


EQU 


$-NOSYS 


;Length of error msg 


43F4 00 


02910 




DC 


-$&0FFH,0 




00 00 00 00 00 00 00 00 
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00900 ; 
0400 00910 SUBTTL '<SYSinfo SectionV 
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Page 3 - System stack and Sysinfo section 



0380 
0382 



00930 ; 

00940 ; 

00950 ; 

00960 STACKS EQU 

00970 PAUSES EQU 

00980 ; 

00990 ; Page 4 - Miscellaneous stuff 



$-128 
STACK $+2 



; Start stack 128 bytes low 
; Where pause will be 



62H Operating system version 

0C9H ;Config on BOOT, yes = 

$-1 ;Max days per month 

31,28,31,30,31,30,31,31,30,31,30,31 



0400 62 01010 DB 

0401 C9 01020 ZEROS DB 

0401 01030 MAXDAY$ EQU 

0402 IF 01040 DB 
1C IF IE IF IE IF IF IE 
IF IE IF 

0002 01050 HIGH$ DS 

0410 4C 01060 PAKNAM$ DB 

53 2D 44 4F 53 36 32 4C 

65 76 65 6C 2D 78 78 

01070 ; 

01080 ; Command line input buffer & AUTO buffer area 

01090 ; 



, LS-DOS62Level-xx' 



;Highest available memory 



0420 0D 01100 INBUFS DB 

0421 00 01110 DC 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 



0DH 
79,0 



; Input buffer - 80 bytes 



00 00 00 00 00 00 00 00 
00 00 00 00 00 00 
01120 ; 
01130 ; 
01140 ; 
0470 01150 DCT$ EQU 
0470 C33D0E 01160 JP 
0473 44 01170 DB 

CI 00 27 11 45 14 
047A C33D0E 01180 JP 
047D 44 01190 DB 
42 FF 27 11 45 14 

0484 C9 01200 RET 

0485 3D0E 01210 DW 
0487 44 01220 DB 

44 FF 27 11 45 14 
048E C9 01230 RET 
048F 3D0E 01240 DW 
0491 44 01250 DB 

48 FF 27 11 45 14 

0498 C9 01260 RET 

0499 2A0F 01270 DW 
049 B 00 01280 DB 

00 00 27 00 00 00 
04A2 C9 01290 RET 
04A3 2A0F 01300 DW 
04A5 00 01310 DB 

00 00 27 00 00 00 
04AC C9 01320 RET 



System drive code tables 



$ ;System drive code tables 

FDCDVR ;Floppy drive 
44H,0ClH,0,27H,17,3-K5+6-l,20 

FDCDVR ;Floppy drive 1 
44H,42H,-l,27H,17,3-K5+6-l,20 

;Disable drive #2 
FDCDVR 
44H,44H,-l,27H,17,3-K5+6-l,20 

;Disable drive #3 
FDCDVR 
44H,48H,-l,27H,17,3-K5+6-l,20 



FDCRET 

0,0,0, 27H, 0,0,0 



FDCRET 
0,0,0,27H, 0,0,0 



;Logical drive 4 



;Logical drive 5 



;Logical drive 6 
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04AD 
04AF 

04B6 
04B7 
04B9 



04C0 
04C1 
04C2 
04C3 
04C4 
0002 
04C7 



04 DC 



2A0F 

00 

00 00 

C9 

2A0F 

00 

00 00 



FF 
00 
00 
FF 



53 

75 6E 
57 65 
69 53 
4A 

61 6E 
41 70 
6E 4A 
65 70 
44 65 



0500 
0500 



01330 

01340 

27 00 00 

01350 

01360 

01370 

27 00 00 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

4D 6F 6E 

64 54 68 

61 74 

01480 
46 65 62 
72 4D 61 
75 6C 41 
4F 63 74 
63 

01490 
01500 
01510 
01520 
02940 
02950 



00 



DW 
DB 

RET 

DW 

DB 



LOWCORE - LS-DOS 6.2 



FDCRET 

0,0,0, 27H, 0,0,0 



Page 00010 



FDCRET 

0,0,0, 27H, 0,0,0 



;Logical drive 7 



DSKTYP$ DB 
DB 
DTPMT$ DB 
TMPMT$ DB 
RSTOR$ DB 
DS 
DAYTBL$ DB 
54 75 65 
75 46 72 

M0NTBL$ DB 
4D 61 72 
79 4A 75 
75 67 53 
4E 6F 76 



SYSINFO - miscellaneous information 
-1 



;0 = DATA, <> = SYS 
;Reserved 

;Date prompt at boot 

-1 ;Time prompt at boot 

;Suppress restores on BOOT 

2 ;Reserved 

' SunMonTueWedThuFri Sat ' 



JanFebMarAprMayJunJulAugSepOctNovDec' 



End of low core assignments 



*GET IODVR:3 
;I0DVR/ASM - LS-DOS 6.2 

SUBTTL '<Device I/O handling> 



;I/0 driver, KEYIN, etc 
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02970 ; 








001C 


02980 HOME 


EQU 


1CH 




001F 


02990 CLRFRM 
03000 ; 


EQU 


1FH 






03010 ; 


Log out 


routine - displ 


ay & log 




03020 ; 








0500 CD2D05 


03030 0LOGOT 
03040 ; 


CALL 


0DSPLY 






03050 ; 


Job log 


loger routine 






03060 ; 








0503 3A3002 


03070 (3L0GER 


LD 


A,(JLDCB$) 


;If NIL S don't do 


0506 EE08 


03080 


XOR 


8 


; anything 


0508 E608 


03090 


AND 


8 




050A C8 


03100 


RET 


Z 




050B E5 


03110 


PUSH 


HL 


;Save pointer to command 


050C 211D05 


03120 


LD 


HL S LOGBUF 


;Get time string into bu 


050F E5 


03130 


PUSH 


HL 




0510 CD8D07 


03140 


CALL 


0TIME 




0513 El 


03150 


POP 


HL 




0514 113002 


03160 


LD 


DE,JLDCB$ 


;Log the time 


0517 CD3005 


03170 


CALL 


@MSG 




051A El 


03180 


POP 


HL 


;Log the command 


051B 1813 


03190 


JR 


G>MSG 




051 D 68 


03200 LOGBUF 


DB 


■hh:mm:ss ',3 




68 3A 6C 


) 6D 3A 73 73 20 






20 03 


03210 ; 










03220 ; 


Line pr 


int routine 






03230 ; 








0528 111802 


03240 (apRINT 


LD 


DE S PRDCB$ 


; Printer DCB 


052B 1803 


03250 
03260 ; 


JR 


0MSG 






03270 ; 


Line display routine 






03280 ; 








052D 111002 


03290 GDSPLY 
03300 ; 


LD 


DE,DODCB$ 


;Video DCB 




03310 ; 


Device 


message routine 






03320 ; 










03330 *MOD 








0530 E5 


03340 @MSG 


PUSH 


HL 


;Save pointer to message 


0531 7E 


03350 $B1 


LD 


A,(HL) 


;P/u a message character 


0532 FE03 


03360 


CP 


3 


;Exit on ETX 


0534 280D 


03370 


JR 


Z 9 $B3 




0536 FE0D 


03380 


CP 


CR 


;Exit & put on ENTER 


0538 2806 


03390 


JR 


Z 9 $B2 




053A C44506 


03400 


CALL 


NZ,@PUT 


;Else put the char 


053D 23 


03410 


INC 


HL 


; & loop on no error 


053E 28F1 


03420 


JR 


Z,$B1 


; else fall thru & exit 


0540 CC4506 


03430 $B2 


CALL 


Z,(<>PUT 




0543 El 


03440 $B3 


POP 


HL 




0544 C9 


03450 
03460 ; 


RET 








03470 ; 


Clear screen routine 






03480 ; 








0545 3E1C 


03490 (9CLS 


LD 


A, HOME 


;Cursor home to 0,0 


0547 CD4D05 


03500 


CALL 


DSPBYT 




054A C0 


03510 


RET 


NZ 


;Return on error 


054B 3E1F 


03520 


LD 


A,CLRFRM 


;Clear to end of frame 


054D D5 


03530 DSPBYT 


PUSH 


DE 




054E CD4206 


03540 


CALL 


@DSP 
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0551 Dl 

0552 C9 



0553 E5 

0554 217400 
0557 CB46 

0559 281A 
055B F5 
055C C5 
055D D5 
055E CB86 

0560 01000B 
0563 CD8203 
0566 CB46 
0568 20F4 
056A 110802 
056D 3E03 
056F CD2306 

0572 Dl 

0573 CI 

0574 Fl 

0575 El 

0576 C9 



0577 CDDB05 
057A 2B 
057B 7E 
057C 23 
057D FE0A 
057F C8 

0580 78 

0581 B9 

0582 20F3 

0584 C9 

0585 E5 

0586 48 

0587 112806 
058A 3A7C00 
058D E620 
058F 2802 
0591 1E30 
0593 ED539805 
0597 CD0000 
059A 203D 
059C FE80 
059E 2875 

05 A0 FE20 
05A2 3020 
05A4 FE0D 
05A6 286E 



03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 



POP 
RET 



DE 



Check and Clear <BREAK> bit SVC 



0CKBRKC 

PUSH 

LD 

BIT 

JR 

PUSH 

PUSH 

PUSH 

BRKTEST RES 
LD 

CALL 
BIT 
JR 
LD 
LD 

CALL 
POP 
POP 
POP 
POP 
RET 



NOBRK 



*MOD 



$C4 



$C5 

(3KEYIN 
$C1 



$C0 
$C1A 



HL 

HL,KFLAG$ 

0,(HL) 

Z, NOBRK 

AF 

BC 

DE 

0,(HL) 

BC0B00H 

PAUSED 

0,(HL) 

NZ, BRKTEST 

DE,KIDCB$ 

A, 03 

@CTL 

DE 

BC 

AF 

HL 



;Save registers 
; Point to KFLAG$ 
;Check break bit 
; and ret if none 
;Save flags 



;Reset the break bit 
;Wait more than 1/30 
; of a second 
;Test the bit again 
;Loop until gone 
; Point at keyboard & 
; clear buffer with 
; control 3 call 

;Recover registers 
;Recover FLAGS 



Keyboard line input routine 



Backspace to beginning of line 



CALL 

DEC 

LD 

INC 

CP 

RET 

LD 

CP 

JR 

RET 

PUSH 

LD 

LD 

LD 

AND 

JR 

LD 

LD 

CALL 

JR 

CP 

JR 

CP 

JR 

CP 

JR 



$C6 

HL 

A,(HL) 

HL 

0AH 

Z 

A,B 

C 

NZ,$C4 

HL 

C,B 

DE,@KEY 

A,(SFLAG$) 

20H 

Z,$C0 

E,@JCL&0FFH 

($C1A+1),DE 

$-$ 

NZ,$C3B 

80H 

Z,$C10 

20H 

NC,$C2 

0DH 

Z,$C11 



; Backspace 

;Get the char prior 

; to the current 

;Return if line feed 

; Check for empty buffer 

Loop if not 

else return 
Save buffer pointer 
Set C = buffer size 
Init for standard input 
If JCL is active, 

then use the JCL input 
Must loop here in case 

JCL exits with //STOP 

Get a key 
Back on error 
Break? 

Go if not a control 

;Carriage return? 
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05 A8 FE1F 


04140 


CP 


1FH 


;Clear? 


05AA 2825 


04150 


JR 


Z,$C3 




05AC 118705 


04160 


LD 


DE,$C1 


;Set return address 


05AF D5 


04170 


PUSH 


DE 




05B0 FE08 


04180 


CP 


08H 


;Backspace? 


05B2 2827 


04190 


JR 


Z,$C6 




05B4 FE18 


04200 


CP 


18H 


;Backspace to BOL? 


05B6 28C8 


04210 


JR 


Z,$C5 




05B8 FE09 


04220 


CP 


09H 


;Tab? 


05BA 283C 


04230 


JR 


Z,$C8 




05BC FE12 


04240 


CP 


•R'&IFH 


;CTL-R? 


05 BE 282 A 


04250 


JR 


Z,$C7 




05C0 FE0A 


04260 


CP 


0AH 


;Line feed? 


05C2 C0 


04270 


RET 


NZ 


;Ret if none above 


05C3 Dl 


04280 


POP 


DE 


;Pop the return 


05C4 77 


04290 $C2 LD 


(HL),A 


; Stuff the char 


05C5 78 


04300 


LD 


A,B 


;Check on buffer full 


05C6 B7 


04310 


OR 


A 




05C7 28BE 


04320 


JR 


L t 4>L1 


;Loop if so 


05C9 7E 


04330 


LD 


A,(HL) 


; else get char 


05CA 23 


04340 


INC 


HL 


; & bump pointer 


05CB 05 


04350 


DEC 


B 


;Count down 


05CC CD4206 


04360 


CALL 


@DSP 


;Display entry 


05CF 1806 


04370 
04380 , 


JR 


$C3A 


; then loop 




04390 , 


Clear 


the screen invoked 




04400 , 








05 Dl CD4505 


04410 $C3 CALL 


@CLS 




05 D4 41 


04420 


LD 


B,C 


;Reset to start of 


05D5 El 


04430 


POP 


HL 


; line & start of 


05D6 E5 


04440 


PUSH 


HL 


; buffer 


05D7 28AE 


04450 $C3A JR 


Z, -pCl 




05D9 183B 


04460 $C3B JR 


$C11 






04470 










04480 . 


Backs 


pace key entry 






04490 








05 DB 78 


04500 3 


;C6 LD 


A,B 


;If buffer is empty, 


05DC B9 


04510 


CP 


C 


; return 


05DD C8 


04520 


RET 


Z 




05DE 2B 


04530 


DEC 


HL 


; else do the backspace 


05DF 7E 


04540 


LD 


A,(HL) 




05E0 FE0A 


04550 


CP 


0AH 


;Last char a linefeed? 


05 E2 23 


04560 


INC 


HL 




05E3 C8 


04570 


RET 


Z 


;Return if so 


05E4 2B 


04580 


DEC 


HL 




05 E5 04 


04590 


INC 


B 


;Add back one char 


05 E6 3E08 


04600 


LD 


A,8 


;Backspace the cursor 


05 E8 1858 


04610 
04620 . 


JR 


@DSP 






04630 , 


Test 


if repeat last 


command 




04640 , 








05 EA 3A6C00 


04650 3 


IC7 LD 


A,(CFLAG$) 


;Test if SYS1 KEYIN bit 


05 ED E604 


04660 


AND 


4 


; is set (bit 2) 


05 EF C8 


04670 


RET 


Z 


; Ignore CTL if not 


05F0 78 


04680 


LD 


A,B 


;If not at 1st position, 


05F1 B9 


04690 


CP 


C 


; don't permit it 


05F2 C0 


04700 


RET 


NZ 




05F3 El 


04710 


POP 


HL 


;Pop return to KEY 


05F4 El 


04720 


POP 


HL 


; Point to command buffer 
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05F5 C32D05 


04730 
04740 ; 




JP 


@DSPLY 


; Display the old comman 




04750 ; 




Tab entered 






04760 ; 










05F8 E5 


04770 $C8 


PUSH 


HL 


;Get pos on line 


05F9 CDF10D 


04780 




CALL 


ADDR 2 ROWCOL 


;Get row, col in HL 


05FC 7D 


04790 




LD 


A,L 


;Xfer column to A 


05FD El 


04800 




POP 


HL 




05FE E607 


04810 




AND 


7 




0600 ED44 


04820 




NEG 




; Negate and add tab 


0602 C608 


04830 




ADD 


A,8 




0604 5F 


04840 




LD 


E S A 


;Reg E has tab length 


0605 78 


04850 $C9 


LD 


A S B 


;Check on buffer full 


0606 B7 


04860 




OR 


A 




0607 C8 


04870 




RET 


Z 




0608 3E20 


04880 




LD 


A,' ' 


;Put spaces until 


060A 77 


04890 




LD 


(HL) 9 A 


; tab expanded 


060B 23 


04900 




INC 


HL 




060C CD4D05 


04910 




CALL 


DSPBYT 




060F C0 


04920 




RET 


NZ 




0610 05 


04930 




DEC 


B 


;Dec buffer remaining 


0611 ID 


04940 




DEC 


E 


;Dec tab count 


0612 C8 


04950 




RET 


Z 




0613 18F0 


04960 
04970 s 




JR 


$C9 






04980 , 




Exit 


KEYIN routine 






04990 , 










0615 37 


05000 $C10 


SCF 




;BREAK exit with CF 


0616 F5 


05010 $C11 


PUSH 


AF 


;Save flag 


0617 3E0D 


05020 




LD 


A s 0DH 


; Stuff CR at end 


0619 77 


05030 




LD 


(HL) S A 




061A CD4206 


05040 




CALL 


@DSP 


; & display it 


061 D 79 


05050 




LD 


A,C 


;Calculate # of chars 


061 E 90 


05060 




SUB 


B 


; entered 


061 F 47 


05070 




LD 


B,A 




0620 Fl 


05080 




POP 


AF 


;Rcvr flag 


0621 El 


05090 




POP 


HL 


;Restore buffer ptr 


0622 C9 


05100 
05110 




RET 








05120 




Byte 


I/O device handler 






05130 






C => character 


if PUT or CTL 




05140 






DE => Device control block 




05150 












05160 i 


*MOD 








0623 C5 


05170 ( 


3CTL 


PUSH 


BC 




0624 0604 


05180 




LD 


B s 4 


;Bit 2 S CTL 


0626 1820 


05190 




JR 


IOBGN 




0628 CD3506 


05200 ( 


?KEY 


CALL 


@KBD 


;Scan the keyboard 


062B C8 


05210 




RET 


Z 


;Ret if key available 


062C B7 


05220 




OR 


A 


;Return if error 


062D 28F9 


05230 




JR 


Z,(9KEY 




062F C9 


05240 




RET 






0630 110302 


05250 ( 


ajCL 


LD 


DE,JCLCB$ 


;JCL file FCB 


0633 1803 


05260 




JR 


@GET 




0635 110802 


05270 ( 


3KBD 


LD 


DE,KIDCB$ 


;Keyboard DCB 


0638 C5 


05280 ( 


aGET 


PUSH 


BC 




0639 0601 


05290 




LD 


B.l 


;Bit 0, GET 


063B 180B 


05300 




JR 


IOBGN 




063D 111802 


05310 ( 


9PRT 


LD 


DE,PRDCB$ 


; Printer DCB 
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0640 1803 


05320 




JR 


@PUT 




0642 111002 


05330 @DSP 


LD 


DE s DODCB$ 


;Video DCB 


0645 C5 


05340 


@PUT 


PUSH 


BC 




0646 0602 


05350 




LD 


B,2 


;Bit 1, PUT 


0648 DDE5 


05360 


IOBGN 


PUSH 


IX 


;Save the registers 


064A E5 


05370 




PUSH 


HL 




064B D5 


05380 




PUSH 


DE 


;Xfer DCB to IX 


064C DDE1 


05390 




POP 


IX 




064E D5 


05400 




PUSH 


DE 




064F 4F 


05410 




LD 


C,A 


;Xfer the I/O char 


0650 218006 


05420 




LD 


HL S @RSTREG 


;Restore register routine 


0653 3A0202 


05430 




LD 


A,(LBANK$) 


;If bank is not 


0656 B7 


05440 




OR 


A 


; resident, need to 


0657 280E 


05450 
05460 


» 


JR 


Z,$D0 


; get it resident! 




05470 


» 


Some 


other bank is 


resident - invoke bank 




05480 


» 








0659 C5 


05490 




PUSH 


BC 


;Save reg again 


065A AF 


05500 




XOR 


A 


; Prepare for bank-0 


065 B 47 


05510 




LD 


B,A 




065C 4F 


05520 




LD 


C,A 




065D CD7708 


05530 




CALL 


0BANK 


;Invoke bank-0 


0660 60 


05540 




LD 


H,B 


;Get old bank data 


0661 69 


05550 




LD 


L,C 


; into reg HL 


0662 CI 


05560 




POP 


BC 


;Rcvr BC 


0663 E5 


05570 




PUSH 


HL 


;Bank data to stack 


0664 217906 


05580 




LD 


HL.RSTBNK 


;Set return address 


0667 E5 


05590 $D0 


PUSH 


HL 


; to restore registers 


0668 1A 


05600 




LD 


A,(DE) 


;P/u DCB type byte 


0669 B7 


05610 




OR 


A 




066A C8 


05620 




RET 


Z 


;Back if nothing 


066B FE08 


05630 




CP 


8 


;Ck on GET/PUT/CTL 


066D 301A 


05640 




JR 


NC,@CHNIO 


;Branch if special 


066F DD6E01 


05650 




LD 


L,(IX+1) 


; else p/u the vector 


0672 DD6602 


05660 




LD 


H s (IX+2) 




0675 78 


05670 


$D1 


LD 


A S B 


;Xfer I/O code 


0676 FE02 


05680 




CP 


2 


;Set flags state 


0678 E9 


05690 




JP 


(HL) 




0679 CI 


05700 RSTBNK 


POP 


BC 


;Get old bank data 


067A F5 


05710 




PUSH 


AF 


;Can't affect AF 


067B 79 


05720 




LD 


A,C 


;Request to A 


067C CD7708 


05730 




CALL 


0BANK 


; Bring back original bank 


067F Fl 


05740 




POP 


AF 




0680 Dl 


05750 


(3RSTREG 


POP 


DE 


;Restore regs 


0681 El 


05760 




POP 


HL 




0682 DDE1 


05770 




POP 


IX 




0684 CI 


05780 




POP 


BC 




0685 C9 


05790 
05800 


» 


RET 






0686 E5 


05810 


$D2 


PUSH 


HL 




0687 DDE1 


05820 




POP 


IX 




0689 DD6E01 


05830 0CHNIO 


LD 


L,(IX+1) 


;P/u vector address 


068C DD6602 


05840 




LD 


H,(IX+2) 




068F DD7E00 


05850 $D3 


LD 


A,(IX+0) 


;P/u the DCB type 


0692 B7 


05860 




OR 


A 


;File Control Block? 


0693 FA0013 


05870 




JP 


M,(3BYTEIO 




0696 CB5F 


05880 




BIT 


3,A 


;Test NIL bit 2nd 


0698 2024 


05890 




JR 


NZ,$D5 




069A CB67 


05900 




BIT 


4, A 


;Routed? 
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069C 20E8 
069E CB6F 
06A0 28D3 
06A2 E5 
06 A3 DDE1 
06A5 DD7003 
06A8 DDE5 
06AA CD8906 
06 AD DDE1 
06AF DD4603 
06B2 200C 



06B4 CB40 
06B6 DD6E04 
06B9 DD6605 
06BC 28C8 
06 BE BF 
06BF C9 



06C0 CB40 
06C2 2803 
06C4 B7 
06C5 28EF 
06C7 B7 
06C8 C9 
06C9 

06C9 



05910 
05920 
05930 
05940 
05950 
05960 
05970 
05980 
05990 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
01530 
06200 
06210 



$D4 
$D5 

s 

» 

$D6 



$D7 
*GET 



JR 

BIT 

JR 

PUSH 

POP 

LD 

PUSH 

CALL 

POP 

LD 

JR 



NZ,$D2 

5,A 

Z,$Dl 

HL 

IX 

(IX+3),B 

IX 

(3CHNIO 

IX 

B,(IX+3) 

NZ,$D6 



;Go get routed DCB 
;If not linked, then 
; must be filtered 
; Point to the link DCB 

;Save the direction 

;I/0 to 1st device 

;P/u the direction 
;Go on NZ flag 



Z-flag on return - check input/output 



BIT 

LD 

LD 

JR 

CP 

RET 



0,B 

L,(IX+4) 

H s (IX+5) 

Z,$D2 

A 



;If input & got char, 
; p/u the linked DCB 



1st link got NZ condition - if input, get link 



;Was it input/output? 

;Output is error 

;If A=0, then no input 



BIT 0,B 

JR Z,$D7 

OR A 

JR Z,$D4 

OR A 

RET 

MULDIV:3 ;16-bit MULT & DIV 

;MULDIV/ASM - 16 x 8 multiplication & division 
SUBTTL '<16 X 8 multiply/ divided 
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06C9 C5 
06CA EB 
06CB 4F 
06CC 210000 
06CF 7D 
06 D0 0608 
06D2 29 
06D3 17 
06 D4 CB01 
06 D6 3003 
06D8 19 
06D9 CE00 
06 DB 10F5 
06DD 4F 
06DE 7D 
06 DF 6C 
06E0 61 
06E1 CI 
06E2 C9 



16 X 8 multiply/divide 



06230 *M0D 

06240 

06250 

06260 

06270 

06280 

06290 

06300 

06310 0MUL16 

06320 

06330 

06340 

06350 

06360 

06370 $E1 

06380 

06390 

06400 

06410 

06420 

06430 $E2 

06440 

06450 

06460 

06470 

06480 

06490 

06500 



06 E3 D5 
06E4 57 
06E5 1E10 
06 E7 AF 
06E8 29 
06E9 17 
06 EA 3803 
06 EC BA 
06 ED 3802 
06 EF 92 
06F0 2C 
06F1 ID 
06F2 20F4 
06F4 Dl 
06F5 C9 



06510 

06520 

06530 

06540 

06550 ; 

06560 ; 

06570 *MOD 

06580 0DIV16 

06590 

06600 

06610 

06620 $F1 

06630 

06640 

06650 

06660 

06670 $F2 

06680 

06690 $F3 

06700 

06710 

06720 

06730 

06740 

06750 

06760 

06770 

06780 

06790 

06800 

06810 

06820 



Multiply HL by A - SVC 91 
HL => multiplicand 
A => multiplier 
HLA <= 24-bit result 
DE destroyed 



PUSH 

EX 

LD 

LD 

LD 

LD 

ADD 

RLA 

RLC 

JR 

ADD 

ADC 

DJNZ 

LD 

LD 

LD 

LD 

POP 

RET 



BC 

DE,HL 

C S A 

HL,0 

A,L 

B,8 

HL,HL 

C 

NC,$E2 

HL,DE 

A 9 

$E1 

C,A 

A 9 L 

L,H 

H,C 

BC 



Save reg BC 
Multiplicand to DE 

& multiplier to C 
I nit value to zero 

in regs HLA 
I nit for 8-bit mult 
Shift to next place 
Use A for bits 16-23 
Multiply this bit? 
Go if not 
Else add multiplicand 

& any overflow to 16 
Loop for 8 bits 
Tempy save 
Xfer low-order to A 
Xfer mid-order to L 
Xfer hi -order to H 



Divide HL by A - SVC 94 

HL => dividend 

A => divisor 

HL <= resulting quotient 

A <= remainder 



PUSH 

LD 

LD 

XOR 

ADD 

RLA 

JR 

CP 

JR 

SUB 

INC 

DEC 

JR 

POP 

RET 



DE 

D,A 

E s 16 

A 

HL,HL 

C,$F2 

D 

C 9 $F3 

D 

L 

E 

NZ,$F1 

DE 



;Save this reg pair 
;Xfer divisor to D 
;Init for 16-bits 

Rotate dividend 
& subtract divisor if 
carry into bit-16 

Compare divisor 

Go if no subtract 
else subtract divisor 

Set lo-order 

Count down one bit 

Loop for 16-bits 



(3HEXDEC - SVC 97 

Routine to convert 16-bit hexadecimal to decimal 

HL => value 

DE => buffer pointer of 5-character buffer 

HL <= destroyed (always set to zero) 

DE <= Buffer+5 

BC <= destroyed 

Z <= set 
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06830 *M0D 








06F6 0605 


06840 @HEXDEC 


LD 


B,5 


;Length max 


06F8 3E20 


06850 




LD 


A,' ' 


;Load blank 


06 FA 12 


06860 


HEXDEC1 


LD 


(DE) S A 


;To string 


06FB 13 


06870 




INC 


DE 


;Bump pointer 


06FC 10FC 


06880 




DJNZ 


HEXDEC1 


;Go for length 


06 FE D5 


06890 




PUSH 


DE 


;Save end +1 


06FF IB 


06900 




DEC 


DE 


;Adjust back 


0700 3E0A 


06910 


HEX DEC 2 


LD 


A, 10 


;Base to convert to 


0702 CDE306 


06920 




CALL 


(3DIV16 


;HL+A = HL/A 


0705 C630 


06930 




ADD 


A,'0' 


;Add ASCII to result 


0707 12 


06940 




LD 


(DE),A 


; to user string 


0708 IB 


06950 
06960 




DEC 


DE 


;Move back 




06970 




Check 


if done 






06980 










0709 7C 


06990 




LD 


A,H 


;Get subtotal remainder 


070A B5 


07000 




OR 


L 


;Done? 


070B 20F3 


07010 




JR 


NZ,HEXDEC2 


;Go till completed 


070D Dl 


07020 




POP 


DE 


;Restore end+1 


070E C9 


07030 
07040 


5 


RET 




;Return Z 


070F 


01540 


*GET 


CLOCKS 


:3 


;Hardware task stuff 




07050 


; CLOCKS/ASM - 


LS-DOS 6.2 




070F 


07060 




SUBTTL 


'<Heartbeat 


& Bank handling>' 
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Heartbeat & Bank handling 
07080 *M0D 





0/090 ; 
07100 ; 


Model ] 


[V time clock & b 


inking cursor 




07110 ; 








070F 3C 


07120 TIMETBL 


DB 


60,60,24,30 


;Sec/min, min/hr, hr/day 


3C 18 IE 


07130 TIMTSK$ 








0713 3A970B 


07140 


LD 


A,(CRSAVE) 


;If cursor not on, 


0716 B7 


07150 


OR 


A 


; then don't blink 


0717 217F00 


07160 


LD 


HL,VFLAG$ 


;Point to video flag 


071A 2829 


07170 
07180 


JR 


Z,$H2 


;Check if blinking 


071C CB7E 


07190 


BIT 


7,(HL) 


;Check system INHIBIT 


071E CBBE 


07200 


RES 


7,(HL) 


;Allow blink next time 


0720 2023 


07210 


JR 


NZ,$H2 




0722 34 


07220 


INC 


(HL) 


; Increment the counter 


0723 CB5E 


07230 


BIT 


3,(HL) 


; & see if to 8 


0725 281E 


07240 


JR 


Z,$H2 


;Not this time 


0727 CB9E 


07250 


RES 


3 9 (HL) 


;Reset counter 


0729 CB76 


07260 


BIT 


6 S (HL) 


;Check if SOLID cursor 


072B 2802 


07270 


JR 


Z, NOSOLID 


;If not, then blink 


072D CBEE 


07280 


SET 


5,(HL) 


;Force SOLID mode 


072F CD1708 


07290 NOSOLID 


CALL 


ENADIS DO RAM 


; Bring up the video RAM 


0732 7E 


07300 


LD 


A 9 (HL) 


;Grab the toggle bit 


0733 EE20 


07310 


XOR 


20H 


; and flip it 


0735 77 


07320 


LD 


(HL),A 




0736 E620 


07330 


AND 


20H 


;Was it on? 


0738 ED5B950B 07340 


LD 


DE, (CURSOR) 


;Get the cursor pos 


073C 3A970B 


07350 


LD 


A,(CRSAVE) 


; and char under cursor 


073F 2003 


07360 


JR 


NZ,$H1 


;Put character if flip on 


0741 3A980B 


07370 


LD 


A 9 (CRSCHAR) 


; else put the cursor 


0744 12 


07380 $H1 


LD 


(DE),A 


;Put the char 


0745 DD210F07 07390 $H2 


LD 


IX, TIMETBL 


; Point to data area 


0749 DD3503 


07400 


DEC 


(IX+3) 


;Count down by 30 


074C C0 


07410 


RET 


NZ 


;Back if not one second 




07420 


IF 


@HZ50 






07430 


LD 


(IX+3), 25 


;Set for 50 hertz 




07440 HERTZ$ 


EQU 


$-1 






07450 


ELSE 




; else use 60 hertz 


074D DD36031E 07460 


LD 


(IX+3), 30 


;Reset for one second 


0750 


07470 HERTZ$ 
07480 


EQU 
ENDIF 


$-1 




0751 CB66 


07490 


BIT 


4,(HL) 


;Is clock on? (VFLAG$) 


0753 2804 


07500 


JR 


Z,$H3 


;Go if off 


0755 118707 


07510 


LD 


DE, CLOCK 


;Set to display clock 


0758 D5 


07520 


PUSH 


DE 




0759 0603 


07530 $H3 


LD 


B,3 




075B 212D00 


07540 


LD 


HL, TIMES 




075E 110F07 


07550 


LD 


DE, TIMETBL 


;Pt to max sec, min, hr 


0761 34 


07560 TIMER1 


INC 


(HL) 


;Bump time parm 


0762 1A 


07570 


LD 


A,(DE) 




0763 96 


07580 


SUB 


(HL) 




0764 C0 


07590 


RET 


NZ 


;Ret if not max 


0765 77 


07600 


LD 


(HL),A 


; else set to 


0766 2C 


07610 


INC 


L 


;Pt to next parm 


0767 1C 


07620 


INC 


E 




0768 10F7 


07630 
07640 ; 


DJNZ 


TIMER1 


;Loop thru 3 parms 




07650 ; 


Update 


date at midnight 






07660 ; 
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076A 2E34 


07670 


LD 


L,DATE$+1&0FFH 


; Point to day of month 


076C 110204 


07680 


LD 


DE,MAXDAY$+1 


;Point to test table 


076F 34 


07690 


INC 


(HL) 


;Bump the day 


0770 2C 


07700 


INC 


L 


;Point to month 


0771 7E 


07710 


LD 


A,(HL) 


;Get the month 


0772 20 


07720 


DEC 


L 




0773 3D 


07730 


DEC 


A 


; Index into table 


0774 83 


07740 


ADO 


A,E 




0775 5F 


07750 


LD 


E,A 




0776 1A 


07760 


LD 


A,(DE) 


;P/u max days 


0777 BE 


07770 


CP 


(HL) 


;Is day in range? 


0778 D0 


07780 


RET 


NC 


;Return if it is 


0779 3601 


07790 


LD 


(HL),1 


; else reset day to 1 


077B 2C 


07800 


INC 


L 


; & bump the month 


077C 34 


07810 


INC 


(HL) 




077D 7E 


07820 


LD 


A,(HL) 


;If went past Dec, 


077E D60D 


07830 


SUB 


12+1 


; then need to fix 


0780 D8 


07840 


RET 


C 




0781 3601 


07850 


LD 


(HL),1 


;Correct to Jan 


0783 2D 


07860 


DEC 


L 


; Backup to year 


0784 2D 


07870 


DEC 


L 




0785 34 


07880 


INC 


(HL) 




0786 C9 


07890 
07900 ; 


RET 








07910 ; 


Clock 


display processor 






07920 ; 










07930 CLOCK 








0787 CD1708 


07940 


CALL 


ENADIS DO RAM 


;Bring up the video 


078A 2145F8 


07950 


LD 


HL,CRTBGN$+69 


; Point to display CRT 


078D 112F00 


07960 @TIME 


LD 


DE,TIME$+2 


; Point to time$ 


0790 0E3A 


07970 


LD 


r « - • 


;Set the separator 


0792 0603 


07980 TIME1 


LD 


B,3 


;Init for three fields 


0794 1A 


07990 TIME2 


LD 


A,(DE) 


;Get a field item 


0795 362F 


08000 


LD 


(HL),2FH 


; Ini t display 


0797 34 


08010 TIME3 


INC 


(HL) 


;Bump until proper digit 


0798 D60A 


08020 


SUB 


10 




079A 30FB 


08030 


JR 


NC,TIME3 




079C C63A 


08040 


ADD 


A,3AH 


;Correct the remainder 


079E 23 


08050 


INC 


HL 


;Bump to next display 


079F 77 


08060 


LD 


(HL),A 


; & stuff the digit 


07 A0 23 


08070 


INC 


HL 




07A1 05 


08080 


DEC 


B 




07A2 C8 


08090 


RET 


Z 


;Back when done 


07A3 71 


08100 


LD 


(HL),C 


; else stuff separator 


07A4 23 


08110 


INC 


HL 




07A5 IB 


08120 


DEC 


DE 


;Point to next field 


07A6 18EC 


08130 
08140 ; 


JR 


TIME2 


; & loop 




08150 ; 


Return 


formatted date, 


HL => user buffer 




08160 ; 








07A8 113500 


08170 @DATE 


LD 


DE,DATE$+2 




07AB 0E2F 


08180 


LD 


C,7' 




07AD 18E3 


08190 
08200 ; 


JR 


TIME1 




07AF 0000 


08210 PCSAVE$ DW 


00 


;PC at entry to RST 38 




08220 ; 










08230 ; 


Dynami 


c Trace routine 






08240 ; 










08250 TRACE 


INT 
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07B1 B307 


08260 


DW 


$+2 






07 B3 2AAF07 


08270 


LD 


HL,(PCSAVE$) 




07B6 EB 


08280 


EX 


DE,HL 




; Program counter to DE 


07B7 CD1708 


08290 


CALL 


ENADIS DO 


RAM 


; Bring up the video 


07BA 213EF8 


08300 


LD 


HL,CRTBGN$+62 


;Crt trace adr 




08310 ; 












08320 ; 


Hexadec 


imal displc 


*y routine 




08330 ; 










07 BD 7 A 


08340 @HEX16 


LD 


A,D 




;Convert reg D to 


07BE CDC207 


08350 


CALL 


0HEX8 




; two hex digits 


07C1 7B 


08360 


LD 


A,E 




;Convert reg E to 


07C2 F5 


08370 @HEX8 


PUSH 


AF 




; two hex digits 


07C3 IF 


08380 


RRA 






;Do left nybble first 


07C4 IF 


08390 


RRA 








07C5 IF 


08400 


RRA 








07C6 IF 


08410 


RRA 








07C7 CDCB07 


08420 


CALL 


HXD1 




;Bits 0-3 stuffed in hex 


07CA Fl 


08430 


POP 


AF 




;Reget the byte 


07CB E60F 


08440 HXD1 


AND 


0FH 




; & use right nybble 


07CD C690 


08450 


ADD 


A,90H 




;Convert nybble to hex 


07 CF 27 


08460 


DAA 








07D0 CE40 


08470 


ADC 


A,40H 






07D2 27 


08480 


DAA 








07D3 77 


08490 


LD 


(HL),A 




;Stuff in (HL) 


07D4 23 


08500 


INC 


HL 






07D5 C9 


08510 
08520 ; 


RET 










08530 ; 


Scan for PAUSE or 


BREAK & set KFLAG$ 




08540 ; 










F480 


08550 SHIFT 












08560 


IF 


@USA 






?m 


08570 KBl 
08580 


ENDIF 










08590 


IF 


0GERMAN 








08600 KBl 












08610 


ENDIF 










08620 


IF 


^FRENCH 








08630 KBl 












08640 


ENDIF 








F440 


08650 KB 7 










07D6 CD1708 


08660 KCK@ 


CALL 


ENADIS DO 


RAM 


; Bring up the keyboard 


07D9 217400 


08670 


LD 


HL,KFLAG$" 




;Hang onto flag 


07DC 3A80F4 


08680 


LD 


A, (SHIFT) 




;P/u SHIFT row & ignore 


07DF E607 


08690 


AND 


7 




; CTRL key pressed 


07E1 2F 


08700 


CPL 








07E2 CB57 


08710 


BIT 


2,A 






07E4 C8 


08720 
08730 ; 


RET 


Z 




;Back if CTRL 




08740 ; 


Set carry flag if 


a SHIFT key is down 




08750 ; 










07E5 C601 


08760 


ADD 


A,l 




;Set CF if no SHIFT 


07E7 3F 


08770 


CCF 






;Set CF if SHIFT 


07E8 300B 


08780 


JR 


NC,KCK1 




;No pause if no SHIFT 


07EA 3A01F4 


08790 


LD 


A, (KBl) 




;Test for "@" 




08800 


IF 


@USA 






07ED CB47 


08810 
08820 


BIT 
ENDIF 


0,A 








08830 


IF 


0INTL 








08840 


BIT 


4,A 




;Foriegn keyboard 
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07 EF 280 B 
07F1 CBCE 
07F3 1807 



07F5 3A3508 
07F8 D66F 
07FA 2009 
07FC 3A40F4 
07FF CB47 
0801 2802 
0803 CBD6 
0805 CB57 

0807 F5 

0808 280B 
080A 3809 
080C 3A7C00 
080F CB67 
0811 2002 
0813 CBC6 

0815 Fl 

0816 C9 



08850 
08860 
08870 
08880 
08890 
08900 
08910 
08920 
08930 
08940 
08950 
08960 
08970 
08980 
08990 



ENDIF 
JR 
SET 
JR 



Z,KCK1A 

1,(HL) 

KCK1A 



; Bypass if no "@" 
;Turn on pause bit 



Inhibit test of unshifted BREAK if nested ENA DO 



KCK1 



KCK1A 



KCK1B 



0817 F3 

0818 226B08 
081B F5 
081C El 
081D 226608 
0820 21030C 

0823 39 

0824 3009 



0826 El 

0827 ED736308 
082B 316003 
082E E5 

082F 214608 

0832 E3 

0833 E5 

0834 216 E08 
0835 

0837 23 

0838 3A7800 
083B 3002 
083D E67F 
083F 77 
0840 E6FC 
0842 F682 
0844 1812 



09010 
09020 
09030 
09040 
09050 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 
09140 
09150 
09160 
09170 
09180 
09190 
09200 
09210 
09220 
09230 
09240 
09250 
09260 
09270 
09280 
09290 
09300 
09310 
09320 
09330 
09340 
09350 
09360 
09370 
09380 
09390 
09400 
09410 
09420 
09430 



KCK2 



LD 

SUB 

JR 

LD 

BIT 

JR 

SET 

BIT 

PUSH 

JR 

JR 

LD 

BIT 

JR 

SET 

POP 

RET 



A,(OPREG_SV_PTR) ;If not at highest level 
0PRE6 SV AREA+1&0FFH ; then don't allow 



NZ,KCK1B 

A S (KB7) 

0,A 

Z S KCK1B 

2,(HL) 

2 S A 

AF 

Z, KCK2 

CKCK2 

A S (SFLAG$) 

4 S A 

NZ S KCK2 

9 (HL) 

AF 



; tasker BREAK handler 

;Check on BREAK & ENTER 

;Check on ENTER 

;Go if not 

; else note set 

;Is <BREAK> depressed? 

;Go if not 
Ignore if shifted 
Permit break bit only 
if BREAK enabled? 

;Turn on BREAK bit 
;C=shift 9 NZ=break 



Routine to enable video RAM & change stack if necessary 



*M0D 

ENADIS_DO_RAM 
DI 
LD 

PUSH 
POP 
LD 
LD 
ADD 
JR 



(HLSAV),HL 

AF 

HL 

(AFSAV),HL 

HL,0C03H 

HL,SP 

NC,$I1 



;Can't while we test stack 
;Save HL but not on stack 
;Save AF 



;Can't exceed X'F3FC 



Switch to the system stack 



$11 



POP 
LD 
LD 

PUSH 
LD 
EX 

PUSH 
LD 
OPREG_SV_PTR 
INC 
LD 
JR 
AND 
LD 
AND 
OR 
JR 



$12 



HL 

(SPSAV),SP 

SP S STACK$-20H 

HL 

HL,DIS_DO_RAM 

(SP),HL 

HL 

HL,0PREG SV_AREA 

EQU 1-2 

HL 

A,(OPREG$) 

NC,$I2 

7FH 

(HL),A 

0FCH 

82 H 

DOOPREG 



; Transfer RET address 
;Save stack pointer 
;Keep room at top 
;Put RET back 
;Stack return to disable 
: video RAM below RET 



;Get next save location 

;P/u port mask 

; Bypass if NC (no stack switch) 

; Strip bit 7 to use as flag 

;Save current state 

;Strip SEL1 & SEL0 

;Set SEL1,0 = (1,0) & NZ condx 

;Set new assignment 



Routine to disable video RAM 
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09440 
09450 1 


)IS_DO_ 


RAM 






0846 F3 


09460 




" DI 




interrupts off 


0847 226B08 


09470 




LD 


( HLSAV ),HL 


;Save off of stack 


084 A F5 


09480 




PUSH 


AF 




084B El 


09490 




POP 


HL 


;Save AF 


084C 226608 


09500 




LD 


(AFSAV), HL 




084F 2A3508 


09510 




LD 


HL, (OPREG SV PTR) 


0852 7E 


09520 




LD 


A,(HL) 


;P/u previous state 


0853 CB7F 


09530 




BIT 


7,A 


;Test if we switch stack 


0855 CBFF 


09540 




SET 


7, A 


;Make sure PAGE is set 


0857 2B 


09550 
09560 


> 


DEC 


HL 




0858 223508 


09570 [ 


DOOPREG 


LD 


(OPREG SV PTR),[ 


1L 


085B 327800 


09580 




LD 


(OPREGl),A 


;Restore port image 


085 E D384 


09590 








; and the port 


0860 2003 


09600 
09610 


> 


JR 


NZ,$I3 






09620 


> 


Switc 


.h back to the old i 


stack 




09630 


» 








0862 310000 


09640 




LD 


SP,$-$ 


;Get the old stack 


0863 


09650 I 


SPSAV 


EQU 


$-2 




0865 210000 


09660 $13 


LD 


HL,$-$ 




0866 


09670 AFSAV 


EQU 


$-2 




0868 E5 


09680 




PUSH 


HL 


;Restore AF 


0869 Fl 


09690 




POP 


AF 




086A 210000 


09700 




LD 


HL,$-$ 


;Restore HL 


086B 


09710 HLSAV 


EQU 


$-2 




086D FB 


09720 




EI 




; Interrupts back on 


086E C9 


09730 




RET 






086 E 


09740 OPREG SV ARE/! 


\ EQU $-1 




086 F 00 


09750 




DB 


0,0,0,0,0,0,0,0 




00 00 00 00 00 00 00 










09760 












09770 




Bank 


selection SVC hand" 


er 




09780 




HL=> 


transfer address for function B=0 




09790 




C => 


Bank request <0-2> 


; Set bit 7 to transfer 




09800 




B => 


Request function 






09810 






=> Select banl< 


', C 




09820 






1 => Reset in-use bit of bank C 




09830 






2 => Test in-use bit of bank C 




09840 






3 => Set in-use 


bit of bank C 




09850 , 












09860 •* 


WOD 










09870 C 


*BANK 








0877 E67F 


09880 




AND 


7FH 


;Strip possible bit 7 


0879 FE03 


09890 




CP 


2+1 


;Bank out of range? 


087B D2ED0D 


09900 




JP 


NC.PERR 




087E 05 


09910 




DEC 


B 


;Check option 


087F FAB308 


09920 




JP 


M,$J3 


;Go if bank select 


0882 0E86 


09930 




LD 


C,86H 


;Set for reset BUR$ 


0884 2819 


09940 




JR 


Z, 4> Jl 


;Go if function 1 


0886 0E46 


09950 




LD 


C,46H 


;Set for test BUR$ 


0888 05 


09960 




DEC 


B 




0889 2814 


09970 




JR 


Z,$J1 


;Go if function 2 


088B 05 


09980 




DEC 


B 




088C 2809 


09990 




JR 


Z,$J0 


;Go on set BUR$ 


088E 05 


10000 




DEC 


B 




088F C2ED0D 


10010 F 


>ERRX 


JP 


NZ,PERR 


;SVC parameter error 
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0892 3A0202 


10020 


LD 


A,(LBANK$) ; 


P/u current bank 


0895 BF 


10030 


CP 


A 




0896 C9 


10040 


RET 






0897 47 


10050 $J0 


LD 


B,A ; 


Save the bank requested 


0898 CD9F08 


10060 


CALL 


$J1 i 


Test if in use already 


089B C0 


10070 


RET 


NZ ; 


Back if error 


089C 78 


10080 


LD 


A,B ; 


Reget the request # 


089D 0EC6 


10090 


LD 


C0C6H ; 


Set for set BUR$ 


089F E607 


10100 $J1 


AND 


7 ; 


Strip to bank 0-7 


08A1 07 


10110 


RLCA 


9 


Shift <0-2> to <3-5> 


08A2 07 


10120 


RLCA 






08A3 07 


10130 


RLCA 






08 A4 Bl 


10140 


OR 


C ; 


Merge the code type 


08A5 32B008 


10150 


LD 


($J2+1),A ; 


Change the OP code 


08A8 AF 


10160 


XOR 


A ; 


Init Z-flag 


08 A9 3E08 


10170 


LD 


A,8 ; 


I nit "Device not avail 


08AB E5 


10180 


PUSH 


HL ; 


Don't alter HL 


08AC 210002 


10190 


LD 


HL,BUR$ ; 


Point to bank-used-RAM 


08AF CB46 


10200 $J2 


BIT 


0,(HL) ; 


*** Modified instruction 


08B1 El 


10210 


POP 


HL 




08B2 C9 


10220 


RET 






08B3 E5 


10230 $J3 


PUSH 


HL ; 


Ck if stack is in upper 


08B4 210580 


10240 


LD 


HL S 8005H ; 


bank area 


08B7 39 


10250 


ADD 


HL,SP 




08B8 El 


10260 


POP 


HL 




08B9 DAED0D 


10270 


JP 


C,PERR ; 


Error if > X'7FFE' 


08BC FE01 


10280 


CP 


1 


Change <0, 1, 2, 3> 


08BE 17 


10290 


RLA 




to <1, 2, 4, 6> 


08BF 47 


10300 


LD 


B,A ; 


& save for later 


08C0 3A0102 


10310 


LD 


A,(BAR$) ; 


P/u Bank Avail Ram 


08C3 A0 


10320 


AND 


B 


Is the bank installed? 


08C4 20C9 


10330 


JR 


NZ,PERRX ; 


Error if not in machine 


08C6 78 


10340 


LD 


A,B 


Get the requested bank 


08C7 IF 


10350 


RRA 




Change <1, 2, 4> to 


08C8 3F 


10360 


CCF 




<0, 2, 3> {CF on 


08C9 CE00 


10370 


ADC 


A,0 ; 


switched to 2 & 4} 


08CB 07 


10380 


RLCA 




Shift bits 0-1 


08CC 07 


10390 


RLCA 




to 4-5 (MBIT0,1) 


08CD 07 


10400 


RLCA 






08CE 07 


10410 


RLCA 






08CF 47 


10420 


LD 


B,A 


Save bit mask 


08D0 3A7800 


10430 


LD 


A,(OPREG$) 


( P/u current memory 


08D3 E68F 


10440 


AND 


08FH 


configuration & 


08 D5 B0 


10450 


OR 


B 


, mask off old & 


08D6 327800 


10460 


LD 


(OPREG$) s A 


merge the new 


08 D9 D384 


10470 






.Switch the hardware 


08 DB 3A0202 


10480 


LD 


A,(LBANK$) 


;Get old bank # 


08 DE 47 


10490 


LD 


B,A 


; & save it 


08DF 79 


10500 


LD 


A,C 


;P/u new bank # 


08E0 E67F 


10510 


AND 


7FH 


;Strip any bit-7 


08E2 320202 


10520 


LD 


(LBANK$),A 


, & save new bank # 


08E5 A9 


10530 


XOR 


C 


;Keep bit-7 


08E6 B0 


10540 


OR 


B 


; Merge in new bank # 


08E7 4F 


10550 


LD 


C,A 


; & replace into C 


08E8 CB79 


10560 


BIT 


7,C 


; Transfer to new bank? 


08EA 0600 


10570 


LD 


B,0 


;Init for invoke later 


08EC C8 


10580 


RET 


Z 


;No if bit-7 = 


08ED E3 


10590 


EX 


(SP),HL 


;Exchange RET with new 


08EE BF 


10600 


CP 


A 


; transfer & go to it 
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08EF C9 10610 RET 

08F0 01550 @$SYS EQU $ ;Pointer for @GTM0D 

01560 IF @USA 
08F0 01570 *GET KIDVR:3 keyboard driver 

10620 ;KIDVR/ASM - LS-DOS 6.2 
08F0 10630 SUBTTL '<Keyboard Driver>' 
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10650 *MOD 










10660 ; 








000A 


10670 LF 


EQU 


10 




000 D 


10680 CR 


EQU 


13 




F401 


10690 KB0 






;Row RAM address 


F440 


10700 KB6 






;Row 6 RAM address 


F480 


10710 SHIFT 
10720 ; 






;Row 7 RAM address 


08F0 1831 


10730 KIDVR 


JR 


KIBGN 


;Branch around linkage 


08F2 870B 


10740 


DW 


KILAST 


;Last byte used 


08F4 03 


10750 


DB 


3,*$KI' 




24 4B 


49 








08F8 0802 


10760 


DW 


KIDCB$ 


; Pointer to DCB 


08FA 0000 


10770 


DW 





;Spare 


08FC 00 


10780 KIDATA$ 


DB 





;Last key entered 


08FD 00 


10790 


DB 





;Repeat time check 


0002 


10800 RPTINIT 


EQU 


$-KIDATA$ 




08FE 16 


10810 


DB 


22 


;22 * 33.3ms = .733 sec 


0003 


10820 RPTRATE 


EQU 


$-KIDATA$ 




08FF 02 


10830 


DB 


2 


;2 x RTC rate 


0004 


10840 KBROW0 


EQU 


$-KIDATA$ 




0900 FF 


10850 


DB 


X ^ <i> } X % ""* X 


; Image of rows 0-3 


FF FF 


FF 








0008 


10860 KBR0W4 


EQU 


$-KIDATA$ 




0904 FF 
FF 
000A 


10870 


DB 


-1,-1 


; Image of rows 4-5 


10880 KBR0W6 


EQU 


$-KIDATA$ 




0906 FF 
FF 


10890 


DB 


-1,-1 


; Image of rows 6-7 



10900 ; 

10910 ; 

10920 ; 

10930 KBTBL 



Conversion table for keyboard row 7/8 



0908 0D 10930 KBTBL DB 

ID IF IF 
090C 80 10940 DB 

00 0B IB 
0910 0A 10950 DB 

1A 08 18 
0914 09 10960 DB 

19 20 20 
0918 81 10970 DB 

91 82 92 
091C 83 10980 DB 
93 

10990 
11000 
11010 
091E 2C 11020 SPCLTB DB 
2F 2E 3B 0D 

11030 
11040 
11050 

0923 79 11060 KIBGN LD 

0924 F5 11070 PUSH 

0925 CD8900 11080 CALL 
0928 Fl 11090 POP 

11100 ; 



CR,1DH,1FH 9 1FH ;<ENTER> <CLEAR> 

80H,0 9 0BH,1BH ;<BREAK> <UPARW> 

LF,1AH,8,18H ;<DNARW> <LTARW> 

9 S 19H,20H,20H ;<RTARW> <SPACE> 

81H,91H,82H,92H ;<F1> <F2> 

83H,93H ;<F3> 

Table to generate 5B-5F, 7B-7F 

',/.;',cr 

Entry to keyboard driver 



A,C 
AF 

0KITSK 
AF 



;Get the character 
;Save flags 
;Hook for KI task 



0929 CDD50A 



11110 ; Screen print (Control-*) processing 

11120 ; 

11130 CALL TYPAHD ;Chain downstream 
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092C D0 


11140 




RET 


NC 


;Ret if not <CONTROL> 


092D F5 


11150 




PUSH 


AF 


;Save flag state 


092E FE3A 


11160 




CP 


i . i 




0930 2802 


11170 




JR 


Z,$K1 


;Go if screen print 


0932 Fl 


11180 




POP 


AF 




0933 C9 


11190 
11200 


» 


RET 








11210 


» 


Perforrr 


a screen pr 


int 




11220 


t 








0934 Fl 


11230 


$K1 


POP 


AF 


;Clean the stack 


0935 3A6D00 


11240 




LD 


A S (DFLAG$) 


;Check on Graphic bit 


0938 07 


11250 




RLCA 






0939 3E3E 


11260 




LD 


A S 3EH 


;Init for LD a, 1 . 1 


093B 3002 


11270 




JR 


NC,$+4 


;Go if not Graphic 


093D 3EFE 


11280 




LD 


A,0FEH 


;Change to CPR n 


093F 325C09 


11290 




LD 


($K4) 9 A 


; Stuff cpr or Id 


0942 217400 


11300 




LD 


HL,KFLAG$ 


;Reset the BREAK bit 


0945 CB86 


11310 




RES 


0,(HL) 




0947 E5 


11320 




PUSH 


HL 


;Save on stack 


0948 210000 


11330 




LD 


HL s 


;Init for row, col 


094B 0601 


11340 


$K2 


LD 


B,l 


;Get a character at the 


094D CD990B 


11350 




CALL 


@VDCTL 


; row-H s col-L 


0950 2027 


11360 




JR 


NZ S $K6 


;Go on error 


0952 FE20 


11370 




CP 


20H 




0954 3002 


11380 




JR 


NC 9 $+4 


;Convert control codes 


0956 C640 


11390 




ADD 


A 9 40H 


; to cap A-Z s + 


0958 FE80 


11400 




CP 


80H 


;Cvrt anything from X'80' 


095A 3802 


11410 




JR 


C,$K5 


; thru X'FF' to a '.' 


095C 3E2E 


11420 $K4 


LD 


A,'.' 


; unless graphic bit set 


095E CD3D06 


11430 


$K5 


CALL 


@PRT 


;Print the char & loop 


0961 2016 


11440 




JR 


NZ,$K6 




0963 2C 


11450 




INC 


L 


;Bump column counter 


0964 7D 


11460 




LD 


A 9 L 


;Check for end-of-line 


0965 D650 


11470 




SUB 


80 




0967 20E2 


11480 




JR 


NZ,$K2 


;Loop if not EOL 


0969 6F 


11490 




LD 


L,A 


;Reset to column 


096A 2D 


11500 




DEC 


L 


;Adj for CR force 


096B E3 


11510 




EX 


(SP),HL 


;Get KFLAG$ 


096C CB46 


11520 




BIT 


0,(HL) 


;Exit with A=0 on 


096E E3 


11530 




EX 


(SP),HL 


; entrance of BREAK 


096F 2008 


11540 




JR 


NZ S $K6 




0971 24 


11550 




INC 


H 


;Bump row counter 


0972 7C 


11560 




LD 


A S H 


;Test for end of screen 


0973 FE18 


11570 




CP 


24 




0975 3E0D 


11580 




LD 


A S CR 




0977 20E5 


11590 




JR 


NZ,$K5 


;Put the CR & loop 


0979 3E0D 


11600 


$K6 


LD 


A,CR 


;Close out with CR if 


097B CD3D06 


11610 




CALL 


0PRT 


; BREAK key detected 


097E El 


11620 




POP 


HL 


;Pop the KFLAG 


097F CB86 


11630 




RES 


0,(HL) 


; & reset BREAK bit 


0981 1832 


11640 
11650 




JR 


NOCHAR 






11660 




Driver 


to scan the 


keyboard 




11670 












11680 


*M0D 








0983 DD21FC06 


11690 KISCAN 


LD 


IX,KIDATA$ 


; Point to data area 


0987 210009 


11700 




LD 


HL,KIDATA$+KBROW0 ;Load kbd image start 


098A 0101F4 


11710 




LD 


BC,KB0 


;Load start of keyboard 


098D 1600 


11720 




LD 


D,0 


;Zero the key counter 
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098F 0A 


11730 $L1 LD 


A,(BC) 


;Load 1st char from kbd 


0990 5F 


11740 


LD 


E,A 




0991 AE 


11750 


XOR 


(HL) 


;XOR with old value 


0992 2026 


11760 


JR 


NZ 9 $L2 


;Go if different 


0994 14 


11770 


INC 


D 


;Bump key counter 


0995 23 


11780 


INC 


HL 


;Bump image pointer 


0996 CB01 


11790 


RLC 


C 


;Go to next row 


0998 F28F09 


11800 


JP 


P,$L1 


;Loop until end of rows 


099 B 0A 


11810 


LD 


A,(BC) 


;Get row 7 


099C E678 


11820 


AND 


078H 


;Strip SHIFT, CTL 


099E 5F 


11830 


LD 


E,A 




099F AE 


11840 


XOR 


(HL) 




09A0 2018 


11850 


JR 


NZ S $L2 




09A2 DD7E00 


11860 


LD 


A,(IX+0) 


;Key down? It's same as 


09A5 B7 


11870 


OR 


A 


; the last if so 


09A6 280D 


11880 


JR 


Z,NOCHAR 


;Ret if no key 


09A8 3A2C00 


11890 


LD 


A, (TIMERS) 


;Do we repeat the 


09AB DD9601 


11900 


SUB 


(IX+1) 


; same key? 


09AE 286 E 


11910 


JR 


Z,$L10 


;Go repeat if time up 


09B0 DD9602 


11920 


SUB 


(IX+RPTINIT) 


;Beyond 0.75 seconds? 


09B3 3869 


11930 


JR 


C S $L10 


;Go if yes 


09 B5 F601 


11940 


YOCHAR OR 


1 


;Else don't repeat 


09B7 3E00 


11950 


LD 


A,0 


;Show NZ with A=0 


09B9 C9 


11960 
11970 


RET 








11980 


; Found 


change in key matrix 




11990 








09 BA 73 


12000 i 


;L2 LD 


(HL),E 


;Stuff KB image with new 


09 BB A3 


12010 


AND 


E 


; KB row value 


09 BC CA880A 


12020 
12030 


JP 


Z.NOKEY 


;Go if new is none 




12040 


; Convert the depressed 


key 




12050 








09BF 5F 


12060 


LD 


E,A 


;Save the active bit 


09C0 7A 


12070 


LD 


A,D 


;Calculate 8 * row 


09C1 07 


12080 


RLCA 






09C2 07 


12090 


RLCA 






09C3 07 


12100 


RLCA 






09C4 57 


12110 


LD 


D,A 


;Save 8 * row 


09C5 0E01 


12120 


LD 


CI 


;Add 8 * row + column 


09C7 79 


12130 1 


&L3 LD 


A,C 




09C8 A3 


12140 


AND 


E 


;Check if bits match 


09C9 2019 


12150 


JR 


NZ,$L6 


;Go if match 


09CB 14 


12160 


INC 


D 


; else bump value 


09CC CB01 


12170 


RLC 


C 


;Shift compare bit 


09CE 18F7 


12180 
12190 , 


JR 


$L3 


;Loop to test next 




12200 , 


Key pr 


essed was not an 


alpha 




12210 , 








09 D0 D690 


12220 J 


IL4 SUB 


90 H 


;Adjust for non-alpha 


09D2 3052 


12230 


JR 


NC,$L9 


;Go if special key 


09 D4 C640 


12240 


ADD 


A,40H 


;Cvrt to numeric/ symbol 


09D6 FE3C 


12250 


CP 


3CH 


; Manipulate to get 


09 D8 3802 


12260 


JR 


C,$L5 


; proper code 


09DA EE10 


12270 


XOR 


10H 




09DC CB43 


12280 J 


5L5 BIT 


0,E 


;Check SHIFT 


09 DE 2860 


12290 


JR 


Z,$L11 


;Go if unshift 


09E0 EE10 


12300 


XOR 


10H 


; else adjust for SHIFT 


09E2 185C 


12310 


JR 


$L11 
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12320 
12330 


; Found 


a key - Set up the function codes 




12340 








09E4 3A80F4 


12350 $L6 LD 


A,(SHIFT) 


;P/u the SHIFT key 


09E7 5F 


12360 


LD 


E,A 


; Merge RH & LH Shift keys 


09E8 E602 


12370 


AND 


2 


;0nly merge bit 1 


09EA 0F 


12380 


RRCA 




;Bit 1 to bit 


09EB B3 


12390 


OR 


E 


;Merge bits & 1 


09EC 5F 


12400 


LD 


E,A 


;Value of (RHorLH) shift 


09ED 7A 


12410 


LD 


A,D 


;Load semi -converted 


09EE C660 


12420 


ADD 


A,60H 


;If alpha, convert to 


09F0 FE80 


12430 


CP 


80H 


; correct value 


09F2 217400 


12440 


LD 


HL,KFLAG$ 




09F5 30D9 


12450 
12460 s 


JR 


NC,$L4 


;Go if not alpha 




12470 , 


Alpha 


<@-Z> - If caps 


lock or <SHIFT>, 




12480 , 


Convert to caps unless 


CLEAR 




12490 s 








09F7 CB53 


12500 


BIT 


2,E 


;CTRL key down? 


09F9 2018 


12510 


JR 


NZ,CTLA2Z 


;CTRL sets <00-lA> 


09FB FE60 


12520 


CP 


60H 


; Invert @ and 


09FD 2004 


12530 


JR 


NZ,$L7 




09FF EE20 


12540 


XOR 


20H 


; Invert & bypass test 


0A01 180A 


12550 


JR 


$L8 


; for CAPs lock 


0A03 DDCB0A4E 12560 3 


;l7 BIT 


l,(IX+KBROW6) 


;If CLEAR, don't test 


0A07 2004 


12570 


JR 


NZ,$L8 


; for CAPs lock 


0A09 CB6E 


12580 


BIT 


5,(HL) 


;Caps lock? 


0A0B 2031 


12590 


JR 


NZ,TGLCASE 




0A0D CB43 


12600 5 


IL8 BIT 


0,E 


;Shift key down? 


0A0F 282 F 


12610 


JR 


Z,$L11 


;Bypass if not shifted 


0A11 182B 


12620 


JR 


TGLCASE 


;Convert to upper case 


0A13 D660 


12630 CTLA2Z SUB 


60H 


;Convert CTRL A-Z 


0A15 2029 


12640 


JR 


NZ,$L11 


;Go on A-Z 


0A17 CB43 


12650 


BIT 


0,E 


;Shifted? 


0A19 37 


12660 


SCF 




;Set C-flag for CTL-@ 


0A1A C8 


12670 


RET 


Z 


; & return if unshifted 


0A1B 3E1C 


12680 


LD 


A,1CH 


; else set EOF error 


0A1D C9 


12690 


RET 






0A1E 3A2C00 


12700 $ 


L10 LD 


A, (TIMERS) 


;Advance time check 


0A21 DD8603 


12710 


ADD 


A,(IX+RPTRATE) 


; by 0.067 seconds 


0A24 1872 


12720 
12730 ; 


JR 


$L12 


;Go output the key 




12740 ; 


Spec i a 


1 keys - rows 6 


& 7 




12750 ; 








0A26 FE0B 


12760 $ 


L9 CP 


11 


;Compress F1-F3 keys 


0A28 284F 


12770 


JR 


Z.CAPSKEY 


; while checking for CAP 


0A2A 3802 


12780 


JR 


C,$+4 


; F1-F3 to 8-10 


0A2C D604 


12790 


SUB 


4 




0A2E 210809 


12800 


LD 


HL, KBTBL 


;Pt to special char table 


0A31 07 


12810 


RLCA 




; Index into table, 


0A32 CB43 


12820 


BIT 


0,E 


; shifted code is +1 


0A34 2801 


12830 


JR 


Z,$+3 




0A36 3C 


12840 


INC 


A 




0A37 4F 


12850 


LD 


C,A 


;Index the table 


0A38 0600 


12860 


LD 


B,0 




0A3A 09 


12870 


ADD 


HL,BC 




0A3B 7E 


12880 


LD 


A,(HL) 


;Load char from table 


0A3C 1802 


12890 


JR 


$L11 


;Bypass restore of char 


0A3E EE20 


12900 T 


GLCASE XOR 


20H 


;Toggle the case 
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0A40 FE80 


12910 $L11 


CP 


80H 


; BREAK key? 


0A42 200F 


12920 


JR 


NZ S $L11A 


;Ck on <BREAK> disable 


0A44 217C00 


12930 


LD 


HL 9 SFLAG$ 


;Break disabled? 


0A47 CB66 


12940 


BIT 


4,(HL) 




0A49 2007 


12950 


JR 


NZ,$L11B 


;Don't set bit if disabl 


0A4B 217400 


12960 


LD 


HL S KFLAG$ 




0A4E CBC6 


12970 


SET 


0,(HL) 


; otherwise set it 


0A50 1801 


12980 


JR 


$L11A 




0A52 17 


12990 $L11B 


RLA 




;Rotate bit-7 out 


0A53 DDCB0A4E 


13000 $L11A 


BIT 


1 S (IX+KBR0W6) 


;CLEAR key pressed? 


0A57 280E 


13010 


JR 


Z 9 NOTALPH 


;Go if not down 


0A59 57 


13020 


LD 


D,A 


;Save code 


0A5A CBAF 


13030 


RES 


5, A 


;Set to upper-case for 


0A5C D641 


13040 


SUB 


'A' 


; test A-Z 


0A5E FE1A 


13050 


CP 


'Z'-'A'+l 




0A60 7A 


13060 


LD 


A 9 D 


;Get back actual char 


0A61 3002 


13070 


JR 


NC 9 $+4 


;Go if not A-Z 


0A63 EE20 


13080 


XOR 


20H 


;Shift keyboard case 


0A65 F680 


13090 


OR 


80H 


;Set bit 7 for CLEAR key 


0A67 CB43 


13100 NOTALPH 


BIT 


9 E 


;SHIFT key down? 


0A69 2819 


13110 


JR 


Z,FIXCLR 


;Go if not 


0A6B FE9F 


13120 GOTSHFT 


CP 


9FH 


;Shift-clear? 


0A6D 2813 


13130 


JR 


Z 9 FIXSCL 


;Go if so 


0A6F FE20 


13140 TSTSPA 


CP 


20 H 


;Shift or shift sp? 


0A71 2016 


13150 


JR 


NZ 5 KEY0K 


;Go if not 


0A73 DDCB0846 


13160 


BIT 


S (IX+KBROW4) 


;Ck zero key 


0A77 2810 


13170 
13180 ; 


JR 


Z s KEYOK 


;Go if not down 




13190 ; 


Toggle 


the caps lock bit in the KFLAG$ 




13200 ; 








0A79 3E20 


13210 CAPSKEY 


LD 


A 9 20H 


;CAPs wasn't 20H 


0A7B 217400 


13220 CASHK$ 


LD 


HL 9 KFLAG$ 


;Reverse case by 


0A7E AE 


13230 


XOR 


(HL) 


; flipping bit 5 


0A7F 77 


13240 


LD 


(HL) 9 A 




0A80 1806 


13250 


JR 


NOKEY 




0A82 EE80 


13260 FIXSCL 


XOR 


80 H 


; Reset bit 7 


0A84 FE9F 


13270 FIXCLR 


CP 


9FH 


;Clear key? 


0A86 2001 


13280 


JR 


NZ 9 KEY0K 


;Go if not 


0A88 AF 


13290 NOKEY 


XOR 


A 




0A89 DD7700 


13300 KEYOK 


LD 


(IX+0),A 




0A8C 018401 


13310 


LD 


BC.0184H 


; Del ay 


0A8F CD8203 


13320 TYPHK$ 


CALL 


PAUSED 




0A92 3A2C00 


13330 


LD 


A 9 (TIMERS) 


;Set initialization 


0A95 DD8602 


13340 DELAY2 


ADD 


A, (IX+RPTINIT) 


; repeat key delay 


0A98 DD7701 


13350 $L12 


LD 


(IX+D.A 


;Save new repeat time 


0A9B DD7E00 


13360 


LD 


A, (IX+0) 


;Check if any key 


0A9E B7 


13370 


OR 


A 


; code was saved 


0A9F CAB509 


13380 


JP 


Z 9 N0CHAR 


;Ret if none 


0AA2 CB53 


13390 


BIT 


2,E 


;Shift key down? 


0AA4 37 


13400 


SCF 




; Init carry 


0AA5 2004 


13410 


JR 


NZ 9 SPECL 


;Ret if CTRL 


0AA7 3F 


13420 


CCF 






0AA8 CB7F 


13430 DVREXIT 


BIT 


7,A 


;Z-flag set on non-CLEAR 


0AAA C8 


13440 


RET 


Z 


;Go if not CLEAR+key 


0AAB F5 


13450 SPECL 


PUSH 


AF 


;Save code 


0AAC 211E09 


13460 $L13 


LD 


HL S SPCLTB 


;Special char table 


0AAF CBBF 


13470 


RES 


7 9 A 


;Turn off "CLEAR" 


0AB1 015B05 


13480 


LD 


BC,5<8!5BH 


;5 chars, starting char 


0AB4 3001 


13490 


JR 


NC,$+3 


; if not CTRL 
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0AB6 05 


13500 


DEC 


B 


0AB7 BE 


13510 SPCLLP 


CP 


(HL) 


0AB8 2812 


13520 


JR 


Z.HIT 


0ABA EE10 


13530 


XOR 


10H 


0ABC BE 


13540 


CP 


(HL) 


0ABD 280B 


13550 


JR 


Z,HITWS 


0ABF EE10 


13560 


XOR 


10H 


0AC1 23 


13570 


INC 


HL 


0AC2 0C 


13580 


INC 


C 


0AC3 10F2 


13590 


DJNZ 


SPCLLP 


0AC5 Fl 


13600 


POP 


AF 


0AC6 380A 


13610 


JR 


C.CKCTL2 


0AC8 BF 


13620 CKCTL1 


CP 


A 


0AC9 C9 


13630 


RET 




0ACA CBE9 


13640 HITWS 


SET 


5,C 


0ACC Fl 


13650 HIT 


POP 


AF 


0ACD 79 


13660 


LD 


A,C 


0ACE 30F8 


13670 CKCTL 


JR 


NCCKCTL1 


0AD0 E61F 


13680 


AND 


1FH 


0AD2 BF 


13690 CKCTL2 


CP 


A 


0AD3 37 


13700 


SCF 




0AD4 C9 


13710 
13720 ; 


RET 






13730 ; 


Check 


the type ahead 




13740 ; 








13750 *MOD 








13760 TYPAHD 






0AD5 CD1708 


13770 


CALL 


ENADIS DO RAM 


0AD8 2180FF 


13780 


LD 


HL,TYPBUF 


0ADB 36FF 


13790 


LD 


(HL),0FFH 


0ADD 381D 


13800 


JR 


C,$M1 


0ADF 2842 


13810 


JR 


Z.TYPON 


0AE1 FE03 


13820 


CP 


3 


0AE3 CA650B 


13830 


JP 


Z,CLRTYP 


0AE6 3C 


13840 


INC 


A 


0AE7 2803 


13850 


JR 


Z, CTLFF 


0AE9 AF 


13860 


XOR 


A 


0AEA 1837 


13870 
13880 ; 


JR 


TYPON 




13890 ; 


Handle 


CTL-255 - scan 




13900 ; 








13910 CTLFF 






0AEC 2101F4 


13920 


LD 


HL,KB0 


0AEF 0608 


13930 


LD 


B,8 


0AF1 7E 


13940 $M0 


LD 


A,(HL) 


0AF2 FD7700 


13950 


LD 


(IY),A 


0AF5 FD23 


13960 


INC 


IY 


0AF7 CB15 


13970 


RL 


L 


0AF9 10F6 


13980 


DJNZ 


$M0 


0AFB C9 


13990 
14000 ; 


RET 




0AFC E5 


14010 $M1 


PUSH 


HL 


0AFD 23 


14020 


INC 


HL 


0AFE 7E 


14030 


LD 


A,(HL) 


0AFF 23 


14040 


INC 


HL 


0B00 BE 


14050 


CP 


(HL) 


0B01 281C 


14060 


JR 


Z,$M4 


0B03 E5 


14070 


PUSH 


HL 


0B04 5E 


14080 


LD 


E,(HL) 



else only 4 
Is this it? 
Go if so 

Flip shift state 
Is that it? 
Go if so 
Flip back 

Bump spec! table ptr 
Bump "convert to" char 
Loop through table 
Not found in table 
Ck CTL for C-flag 
Set Z-flag 

Move to LC set 

Restore orig char 

Load converted one 

Go if ctl key not down 

Force ctl code 

Set Z-flag 

Set C-flag for CTRL 



; Bring up Keyboard ram 
;P/u start of type buffer 
;Turn off type ahead 
;Go on @GET 
;No PUT to *KI 
;CTL 3 function? 
;Clear buffer if so 

;Go if CTL 255 function 
;Nothing done, No error 



Start of keyboard image 
Do 8 rows 
P/u the image 
and xfer to user buffer 



;Bump to PUT pointer 

; & pick it up 

;Bump to GET pointer 

;The same? 

;Go if so 

;Save pointer to GETPTR 

;P/u offset to buffer 
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0B05 23 


14090 


INC 


HL 


,Pt to buffer start 


0B06 1600 


14100 


LD 


D,0 


;Add offset to start 


0B08 19 


14110 


ADD 


HL,DE 


; to point to char posn 


0B09 46 


14120 


LD 


B,(HL) 


;GET the stored char 


0B0A El 


14130 


POP 


HL 


,Rcvr GETPTR 


0B0B 34 


14140 


INC 


(HL) 


;Bump by 1 for char 


0B0C 3E50 


14150 


LD 


A, 80 


;Check for >80 


0B0E BE 


14160 


CP 


(HL) 


; after INC 


0BJ9F 3002 


14170 


JR 


NC,$M2 


,Go if not at end 


0B11 3600 


14180 


LD 


(HL) s 


Reset to start of buf 


0B13 7E 


14190 $M2 


LD 


A,(HL) 


, If we emptied the 


0B14 2B 


14200 


DEC 


HL 


, type-ahead buffer, 


0B15 BE 


14210 


CP 


(HL) 


; update KFLAG$ 


0B16 CC6A0B 


14220 


CALL 


Z S R7KFLG 


.Reset bit-7 if empty 


0B19 El 


14230 


POP 


HL 


.Pointed to & get switch 


0B1A 3600 


14240 


LD 


(HL) s 


Turn type back on 


0B1C 78 


14250 


LD 


A S B 


.Transfer char/flag 


0B1D BF 


14260 


CP 


A 


Set flag "Z" 


0B1E C9 


14270 
14280 ; 


RET 








14290 ; 


No ch 


aracter in type ahead buffer - get from kbd 




14300 ; 








0B1F CD8309 


14310 $M4 


CALL 


KISCAN 


.Call keyboard driver 


0B22 El 


14320 


POP 


HL 


Rcvr switch 


0B23 3600 


14330 TYPON 


LD 


(HL) s 


Type ahead back on 


0B25 C9 


14340 
14350 ; 


RET 








14360 ; 


Type 


ahead task 10 - scans keyboard & saves key 




14370 ; 








0B26 280B 


14380 TYPTSK$ DW 


$M5 


Task entry for processor 


0B28 3A6D00 


14390 $M5 


LD 


A 9 (DFLAG$) 


If type-ahead suppressed 


0B2B E602 


14400 


AND 


2H 


then return 


0B2D C8 


14410 


RET 


Z 




0B2E CD1708 


14420 


CALL 


ENADIS DO RAM , 


Bring up the keyboard 


0B31 2180FF 


14430 


LD 


HL,TYPBUF 


P/u type switch 


0B34 7E 


14440 


LD 


A S (HL) 


If previous driver is 


0B35 B7 


14450 


OR 


A 


currently executing, 


0B36 C0 


14460 


RET 


NZ 


do not stack more keys 


0B37 23 


14470 


INC 


HL 


Bump to PUTPTR 


0B38 E5 


14480 


PUSH 


HL 


& save it 


0B39 CD8309 


14490 KIHOOK 


CALL 


KISCAN 


, and scan for a charact 


0B3C El 


14500 


POP 


HL 




0B3D C0 


14510 


RET 


NZ 


Ret if no char 


0B3E F5 


14520 


PUSH 


AF 


, else xfer char 


0B3F CI 


14530 


POP 


BC 


; & flag to BC 


0B40 FE80 


14540 


CP 


80H 


.Check for <BREAK> 


0B42 F5 


14550 


PUSH 


AF 




0B43 E5 


14560 


PUSH 


HL 




0B44 CC660B 


14570 


CALL 


Z,$M6 


, If so clear type buf 


0B47 El 


14580 


POP 


HL 


.Restore 


0B48 Fl 


14590 


POP 


AF 




0B49 FEC0 


14600 


CP 


0C0H 


,If CLEAR @, reset keybuf 


0B4B 2819 


14610 


JR 


Z,$M6 




0B4D 5E 


14620 


LD 


E,(HL) 


,P/u PUTPTR & compare 


0B4E 7B 


14630 


LD 


A,E 


;GETPTR 


0B4F 23 


14640 


INC 


HL 




0B50 BE 


14650 


CP 


(HL) 




0B51 2821 


14660 


JR 


Z,$M8 


Jump if key buffer empty 


0B53 3A2C00 


14670 


LD 


A, (TIMERS) 


;Check if we expired the 
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0B56 DD8603 


14680 


ADD 


A,(IX+RPTRATE) 


; time interval between 


0B59 DDBE01 


14690 


CP 


(IX+1) 


; repeating keys 


0B5C 2012 


14700 


JR 


NZ,$M7 


;Go if time not up 


0B5E DD8603 


14710 


ADD 


A S (IX+RPTRATE) 


;Re-adjust time check so 


0B61 DD7701 


14720 


LD 


(IX+1), A 


; we don't repeat in 


0B64 C9 


14730 
14740 ; 


RET 




; type-ahead task 




14750 ; 


CLEAR @ 


control key entered, clear the buffer 




14760 ; 








0B65 23 


14770 CLRTYP 


INC 


HL 


;Bump to PUT pointer 


0B66 AF 


14780 $M6 


XOR 


A 




0B67 77 


14790 


LD 


(HL),A 


;lst PUT is loc'n 


0B68 23 


14800 


INC 


HL 


;Pt to GETPTR 


0B69 77 


14810 


LD 


(HL),A 


;lst GET is loc'n 


0B6A 217400 


14820 R7KFLG 


LD 


HL,KFLAG$ 


;Show buffer empty 


0B6D CBBE 


14830 


RES 


7,(HL) 




0B6F C9 


14840 
14850 ; 


RET 








14860 ; 


Char to 


stuff - check i 


f buffer will overflow 




14870 ; 








0B70 7B 


14880 $M7 


LD 


A,E 


;P/u current PUT pointer 


0B71 3C 


14890 


INC 


A 


;If the next loc'n wraps 


0B72 BE 


14900 


CP 


(HL) 


; to the GET loc'n, 


0B73 C8 


14910 


RET 


Z 


; don't permit overrun 


0B74 E5 


14920 $M8 


PUSH 


HL 


;Save ptr to GETPTR 


0B75 23 


14930 


INC 


HL 


;Pt to start of keybuf 


0B76 1600 


14940 


LD 


D,0 


; & calculate PUT loc'n 


0B78 19 


14950 


ADD 


HL,DE 




0B79 70 


14960 


LD 


(HL),B 


;Store the char 


0B7A 217400 


14970 


LD 


HL,KFLAG$ 


;Show type buffer 


0B7D CBFE 


14980 


SET 


7,(HL) 


; is not empty 


0B7F El 


14990 


POP 


HL 


;Rcvr ptr to GETPTR 


0B80 2B 


15000 


DEC 


HL 


;Backup to PUTPTR 


0B81 34 


15010 


INC 


(HL) 


;Bump past the char 


0B82 3E50 


15020 


LD 


A, 80 


;Check for >80 


0B84 BE 


15030 


CP 


(HL) 




0B85 D0 


15040 


RET 


NC 


;Back if not over 80 


0B86 72 


15050 


LD 


(HL),D 


; else reset to 1st 


0B87 C9 


15060 
15070 ; 


RET 




; position in buf (0) 




15080 ; 


Type ah 


ead buffer area 






15090 ; 








FF80 


15100 TYPBUF 
15110 ; 










15120 ; 


TYPBUF+ 


= On/Off Flag 






15130 ; 


TYPBUF+ 


1 = Storage poin 


ter 




15140 ; 


TYPBUF+2 = Retrieve pointer 




15150 ; 


TYPBUF+3 = Start of act 


ual buffer 




15160 ; 








0B87 


15170 KILAST 
01580 


EQU 
ENDIF 


$-1 






01590 


IF 


^GERMAN 






01600 FREN 


EQU 


00 






01610 GERM 


EQU 


-1 






01630 


ENDIF 








01640 


IF 


^FRENCH 






01650 FREN 


EQU 


-1 






01660 GERM 


EQU 


00 






01680 


ENDIF 
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0089 
0050 
0018 
FFB0 
0780 
0800 
F800 
FF7F 



0B88 1812 
0B8A 000 E 
0B8C 03 

24 44 4F 
0B90 1002 
0B92 0000 
0B94 



17 
0003 
0004 

0B94 00 



0B95 00F8 
0B97 20 
0B98 5F 



0B99 C3420D 



0B9C DD21940B 
0BA0 CD1708 
0BA3 DAB30D 
0BA6 CDB30D 
0BA9 C5 
0BAA 79 
0BAB DDCB0066 
0BAF 2009 
0BB1 B7 
0BB2 CA9F0C 
0BB5 FE20 
0BB7 DA440C 
0BBA FEC0 
0BBC 3806 



0BBE DDCB005E 
0BC2 2826 



15210 
15220 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
15350 
15360 
15370 

15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 
15490 
15500 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
15640 
15650 
15660 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 



*M0D 

0OPREG 

CRTCADD 

CRTCDAT 

LINESIZ 

NUMROWS 

NEGLINE 

CRTSIZE 

RAMSIZE 

CRTBGN$ 

CRTEND 



DODVR 



EQU 
EQU 
EQU 
EQU 
EQU 



80 

24 

-LINESIZ 

LINESIZ*NUMROWS 

2048 



;Mem mgt & video control 
;CRTC address port 
;CRTC data port 



EQU CRTBGN$+CRTSIZE-1 

Driver entry point 



D0DATA$ 

D0_MASK 

SCRPROT 

TABS 

CTL 



CURSOR 
CRSAVE 
CRSCHAR 



JR 
DW 
DB 

DW 

DW 

EQU 

EQU 

EQU 

EQU 

EQU 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

DW 

DB 

DB 



DOBGN 
DOEND 
3,'$D0 

DODCB$ 



$-DODATA$ 

7 

3 

4 

@USA 



@INTL 



CRTBGN$ 
20H 



;Branch around linkage 
;Last memory location used 



;DCB used 
;Reserved 



;Bits 0-2: scroll protect 
;Bit 3: 0=tabs s l=chars 
;Bit 4 9 display controls 

;Tab/Spec, Scroll protect 
;Space compression off 



;Character under cursor 
;Cursor character 



; Entry from SVC 15, GVDCTL 
0VDCTL JP @ VDCTL 



Continue regular driver functions 



DOBGN 



$N1A 



LD 


IX s DODATA$ 


CALL 


E NAD IS DO RAM 


JP 


C 9 $N0 


CALL 


$N0 


PUSH 


BC 


LD 


A S C 


BIT 


CTL,(IX+D0 MASK) 


JR 


NZ,$NlA 


OR 


A 


JP 


Z S TGGLCTL 


CP 


20H 


JP 


C,DO CONTROL 


CP 


0C0H 


JR 


CDONORM 


Charac 


:ter is => 0C0H 


BIT 


TABS,(IX+DO MASK 


JR 


Z,D0 TABS 



; Bring up the video RAM 
;Go on 'GET' request 
;Handle cursor 
;Need to save C 
;Get char to display 
;Display controls set? 
;Go if so 
;Char a 0? 

;Switch Bit CTL if so 
;Video control char? 
;Go if so 
;Tab or special? 
;Go on normal characters 



;Go if video tabs 
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0BC4 CDB80C 
0BC7 DDCB00A6 
0BCB CI 
0BCC F3 
0BCD 3A970B 
0BD0 B7 
0BD1 2810 
0BD3 1A 
0BD4 32970B 
0BD7 3A7F00 
0BDA CBBF 
0BDC 327F00 
0BDF 3A980B 
0BE2 12 
0BE3 ED53950B 
0BE7 BF 
0BE8 79 
0BE9 C9 



0BEA D6C0 
0BEC 28DD 
0BEE 47 
0BEF 0E20 
0BF1 CDB80C 
0BF4 10F9 
0BF6 18D3 



0BF8 EB 
0BF9 CDF40D 
0BFC 6F 
0BFD C3D00D 



0C00 1A 
0C01 32970B 
0C04 C9 
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0C05 1100F8 
0C08 3A7600 
0C0B E6FB 
0C0D CDB20C 
0C10 187A 



15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 



Character is not tab expansion - do it 



DONORM 



CALL 
RES 
D0_RET POP 
D0_RET1 DI 
LD 
OR 
JR 
LD 
LD 
LD 
RES 
LD 
LD 
LD 
LD 
CP 
LD 
RET 



$N1 



DO_DSPCHAR 

CTL,(IX+DO_MASK 

BC 

A 8 (CRSAVE) 

A 

Z,$Nl 

A,(DE) 

(CRSAVE),A 

A,(VFLAG$) 

7, A 

(VFLAG$),A 

A,(CRSCHAR) 

(DE),A 

(CURSOR ),DE 

A 

A,C 



then 



;Display the char 
) ;Turn off CTL bit 
;Get orig char 
;Disable intr 
;If a cursor is on, 
; we need to save the 
; current char & display 
; the cursor character 
;Save current char 
;Allow tasker to blink 



;P/u cusor character 
;Put it on the screen 
;L)pdate cursor position 
;Clear status 
;Restore the char 



Perform a tab expansion {C0H-FFH} 



DO TABS 



$N2 



Compute spaces 
Forget it if TAB(0) 
Display requested 
number of spaces 



Routine to move the cursor to begin of line {29} 



SUB 


0C0H ; 


JR 


Z,DO RET ; 


LD 


B,A ; 


LD 


C ' ; 


CALL 


DO DSPCHAR 


DJNZ 


$N? 


JR 


DO RET 



CRSBOL 



EX DE,HL 

CALL ADDR1 

LD L,A 

JP ROWCOL 2 ADDR 



;Cursor addr to HL 
;Find row, col 
;Set col to start 
;Calc address of BOL 



Routines to turn on/off the cursor {14/15} 



CRSON LD 
CRSOFF LD 
RET 



A, (DE) ;Get screen character 
(CRSAVE),A ;Save zero or CRT char 



Routine moves cursor to start of video page {28} 
set to 80 column, and turns off inverse video 



CRSHOME 



LD DE,CRTBGN$ 

LD A,(M0D0UT$) 

AND 0FBH 

CALL SETMOD 

JR DO INVERT DIS 



;Home the cursor 
;P/u the mask & 
; set to 80 cpl 



_ _ ;Set to normal video 
Routine to backspace & erase cursor {08} 
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0C12 CD1B0C 
0C15 C8 
0C16 0E20 
0C18 C3CA0D 



0C1B 3A7600 
0C1E E604 
0C20 C4230C 
0C23 2100F8 
0C26 ED52 
0C28 C8 
0C29 IB 
0C2A C9 



0C2B 21B0FF 
0C2E 1803 



0C30 215000 
0C33 19 
0C34 7C 
0C35 FEF8 
0C37 D8 
0C38 EB 
0C39 IB 
0C3A C3C30C 



0C3D 3A7600 
0C40 F604 
0C42 186 E 



0C44 21CB0B 
0C47 E5 
0C48 FE08 
0C4A 28C6 
0C4C FE0A 
0C4E 2802 
0C50 D60D 
0C52 CA020D 
0C55 3D 
0C56 28A8 
0C58 3D 
0C59 28A6 
0C5B 3D 
0C5C 282B 
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16390 
16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16500 
16510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16660 
16670 
16680 
16690 
16700 
16710 
16720 
16730 
16740 
16750 
16760 
16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16850 
16860 
16870 
16880 
16890 
16900 
16910 
16920 
16930 
16940 
16950 
16960 
16970 



BACKSPA 



CRSBKSP 



CRSUP 



SET40 



CALL 


CRSBKSP 


RET 


Z 


LD 


C,' ' 


JP 


PUT @ 



Backspace the cursor 
If not at start, 
put a space at 
at the new loc'n 



Routine to backspace the cursor {24} 

;If double width chars, 
; need to do twice 

;See if at home position 
; prior to adjusting 

;Decrement the cursor pos 
Routine to move the cursor up one line {27} 

;Move up one line 
Routine to move the cursor down one line {26} 



LD 


A,(M0D0UT$) 


AND 


4 


CALL 


NZ,$+3 


LD 


HL,CRTBGN$ 


SBC 


HL,DE 


RET 


Z 


DEC 


DE 


RET 





LD 
JR 



HL,NEGLINE 
MOVCRS 



CRSDOWN 

LD 

MOVCRS ADD 
LD 
CP 
RET 
EX 
DEC 
JP 



HL,LINESIZ 

HL,DE 

A H 

CRTBGN$<-8 

C 

DE,HL 

DE 

CRSFRW0 



Set to 40 cpl mode {23} 



LD 
OR 
JR 



A,(M0D0UT$) 

04H 

SETMOD 



;Add the line length 
; to the current pos 
;Make sure we did not 
; go over the top 

; & switch back to DE 
;Adjust for fall thru 



;Get image of the port 
; Merge in 40 cpl bit 



Routines to parse control functions 



DO_CONTROL 
LD 

PUSH 
CP 
JR 
CP 
JR 
SUB 
JP 
DEC 
JR 
DEC 
JR 
DEC 
JR 



HL,D0_RET 

HL 

08H 

Z, BACKSPA 

0AH 

Z,$+4 

0DH 

Z,LINFEED 

A 

Z.CRSON 

A 

Z,CRS0FF 

A 

Z,D0 INVERT ENA 



;Establish RET 

;Backspace? 

;Line feed? 

; is same as <ENTER> 

;Carriage return? 

;Cursor on? 

;Cursor off? 

;Reverse video? 
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0C5E 3D 


16980 




DEC 


A 








0C5F 283A 


16990 




JR 


Z.DO INVERT 


OFF 




0C61 D604 


17000 




SUB 


4 






;Swap tab/alternate? 


0C63 2841 


17010 




JR 


Z.TGGLTAB 








0C65 3D 


17020 




DEC 


A 






;Special/alternate? 


0C66 2845 


17030 




JR 


Z,TGGLALT 








0C68 3D 


17040 




DEC 


A 






;40 cpl? 


0C69 28D2 


17050 




JR 


Z, SET 40 








0C6B 3D 


17060 




DEC 


A 






;Cursor backspace? 


0C6C 28AD 


17070 




JR 


Z S CRSBKSP 








0C6E 3D 


17080 




DEC 


A 






;Cursor forward? 


0C6F 284A 


17090 




JR 


Z,CRSFRWD 








0C71 3D 


17100 




DEC 


A 






;Cursor down? 


0C72 28BC 


17110 




JR 


Z,CRSDOWN 








0C74 3D 


17120 




DEC 


A 






;Cursor up? 


0C75 28B4 


17130 




JR 


Z,CRSUP 








0C77 3D 


17140 




DEC 


A 






;Cursor home? 


0C78 CA050C 


17150 




JP 


Z s CRSHOME 








0C7B 3D 


17160 




DEC 


A 






;Cursor BOL? 


0C7C CAF80B 


17170 




JP 


Z 8 CRSB0L 








0C7F 3D 


17180 




DEC 


A 






;Clear to EOL? 


0C80 CA120D 


17190 




JP 


Z s CLREOL 








0C83 3D 


17200 




DEC 


A 








0C84 CA1E0D 


17210 




JP 


Z,CLREOF 






;Clear to end-of-frame? 


0C87 AF 


17220 




XOR 


A 






;Clear A reg. 


0C88 C9 


17230 
17240 


9 


RET 












17250 


9 


Routine 


to enable 


inverse video 




17260 


9 














17270 


D0_ 


INVERT ENA 










0C89 0608 


17280 




LD 


B,8 






;Set for enable 


0C8B 21 


17290 
17300 


D0_ 


DB 
INVERT DIS 


21H 






; Ignore next load 


0C8C 0600 


17310 




LD 


B,0 








0C8E 2A3508 


17320 




LD 


HL,(OPREG 


_SV 


_PTR) ;Real OPREG$ 


0C91 7E 


17330 




LD 


A S (HL) 






;P/u OPREG mask 


0C92 E6F7 


17340 




AND 


0F7H 






; Strip bit 3 


0C94 B0 


17350 




OR 


B 






;Set/reset invideo bit 


0C95 77 


17360 




LD 


(HL) S A 






; and restuff 


0C96 78 


17370 




LD 


A,B 






;Get mode mask byte 


0C97 07 


17380 




RLCA 








;Rotate left 4 times to 


0C98 07 


17390 




RLCA 








; make an 8 into 80H 


0C99 07 


17400 




RLCA 








; for inverse on 


0C9A 07 


17410 
17420 


D0_ 


RLCA 
INVERT OFF 








; Inverse off remains 


0C9B 32CB0D 


17430 




LD 


(INVIDEO), 


A 




;Set the mask byte 


0C9E C9 


17440 
17450 


9 


RET 












17460 


9 


Routine 


to toggle 


display of controls 




17470 


9 












0C9F 21CB0B 


17480 TGGLCTL LD 


HL.DO RET 






;Establish ret addr 


0CA2 E5 


17490 




PUSH 


HL 








0CA3 3E10 


17500 




LD 


A.10H 






;Toggle bit 4 


0CA5 21 


17510 
17520 


9 


DB 


21H 






; Ignore next 




17530 


9 


Toggle 


tabs & altern 


ate 


character set 




17540 


9 














17550 


TGGLTAB 










0CA6 3E08 


17560 




LD 


A,8 






;Toggle bit 3 
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0CA8 DDAE00 


17570 




XOR 


(IX+DO MASK) 


;P/u mask value 


0CAB 1850 


17580 
17590 


s 


JR 


SETMASK 






17600 


» 


Toggle 


special & alternate character set 




17610 


9 










17620 TGGLALT 








0CAD 3A7600 


17630 




LD 


A s (MODOUT$) 


;P/u port mask 


0CB0 EE08 


17640 




XOR 


8 


;Flip the bit 


0CB2 327600 


17650 


SETMOD 


LD 


(MODOUT$),A 


;Resave port mask 


0CB5 D3EC 


17660 








; and send the byte 


0CB7 C9 


17670 
17680 


s 


RET 








17690 


3 


Display 


character <C> at 


current cursor position 




17700 


» 










17710 


DO_DSPCHAR 






0CB8 CDCA0D 


17720 




CALL 


PUTja 


; Display the char 




17730 


» 










17740 


s 


Routine 


to perform cursor forward {25} 




17750 


» 










17760 


CRSFRWD 








0CBB 3A7600 


17770 




LD 


A,(MODOUT$) 


;If double width chars, 


0CBE E604 


17780 




AND 


4 


; need to do twice 


0CC0 2801 


17790 




JR 


Z,CRSFRW0 




0CC2 13 


17800 




INC 


DE 


;Move cursor forward 


0CC3 13 


17810 


CRSFRW0 


INC 


DE 




0CC4 217FFF 


17820 




LD 


HL,CRTEND 


;Off the screen? 


0CC7 ED52 


17830 




SBC 


HL S DE 




0CC9 D0 


17840 




RET 


NC 


;Back if not 


0CCA CD2B0C 


17850 




CALL 


CRSUP 


;Put cursor back on 


0CCD D5 


17860 




PUSH 


DE 


;Save cursor position 




17870 


DO_SCROLL 






0CCE DD7E00 


17880 




LD 


A,( IX+DO MASK) 


;Get scroll protect 


0CD1 E607 


17890 




AND 


SCRPROT 




0CD3 2100F8 


17900 




LD 


HL,CRTBGN$ 


; Point to CRT start 


0CD6 118007 


17910 




LD 


DE,CRTSIZE 


;P/u CRT size 


0CD9 C5 


17920 




PUSH 


BC 




0CDA 015000 


17930 




LD 


BC.LINESIZ 


;Set line size 


0CDD 3C 


17940 




INC 


A 


;Adjust scroll protect 


0CDE 09 


17950 $N4 


ADD 


HL S BC 


;Move logical start 


0CDF EB 


17960 




EX 


DE,HL 


; down one line 


0CE0 B7 


17970 




OR 


A 


; and subtract one line 


0CE1 ED42 


17980 




SBC 


HL,BC 


; from the CRTSIZE for 


0CE3 EB 


17990 




EX 


DE S HL 


; each protected line 


0CE4 3D 


18000 




DEC 


A 


;Dec scroll protect 


0CE5 20F7 


18010 




JR 


NZ,$N4 


;Loop until done 


0CE7 D5 


18020 




PUSH 


DE 


;Save the move length 


0CE8 E5 


18030 




PUSH 


HL 


;Save the move-from 


0CE9 ED42 


18040 




SBC 


HL,BC 


;Move start back one 


0CEB EB 


18050 




EX 


DE,HL 


; line, Source = 


0CEC El 


18060 




POP 


HL 


; start + one 


0CED CI 


18070 




POP 


BC 


;Get back dest locn 


0CEE EDB0 


18080 




LDIR 




;Scroll unprotected 


0CF0 CI 


18090 




POP 


BC 


;Recover line size 


0CF1 182C 


18100 
18110 




JR 


CLREOF1 


;Clear to EOF from DE 




18120 




Set scroll protect value 






18130 






C = scroll protect <0-7> 




18140 






B = 7 






18150 


» 




SVC = 15, 0VDCTL 
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18160 


9 










18170 


SET_SCROLL 






0CF3 79 


18180 




LD 


A,C 


;Get user value 


0CF4 E607 


18190 




AND 


7 


;Make modulo 8 


0CF6 4F 


18200 




LD 


C,A 




0CF7 3A940B 


18210 




LD 


A,(DODATA$) 


;P/u current mask 


0CFA E6F8 


18220 




AND 


0F8H 


;Remove current scroll 


0CFC Bl 


18230 




OR 


C 


;Merge in the new value 


0CFD 32940B 


18240 


SETMASK 


LD 


(DODATA$),A 


; & reload mask 


0D00 AF 


18250 




XOR 


A 


;Z-flag return 


0D01 C9 


18260 
18270 


s 


RET 








18280 


9 


Routi 


ne to move down 


one line {10/13} 




18290 


9 








0D02 CDF 80 B 


18300 


LINFEED 


CALL 


CRSBOL 


;Move to BOL 


0D05 D5 


18310 




PUSH 


DE 


;Save cursor position 


0D06 CD300C 


18320 




CALL 


CRSDOWN 


;Move down one line 


0D09 B7 


18330 




OR 


A 


;Reset the carry flag 


0D0A 2180FF 


18340 




LD 


HL,CRTEND+1< 


; & check if off of 


0D0D ED52 


18350 




SBC 


HL,DE 


; the screen 


0D0F 28BD 


18360 




JR 


Z,DO SCROLL 


; Scroll if so 


0D11 El 


18370 




POP 


HL 


^Discard old position 


0D12 D5 


18380 


CLREOL 


PUSH 


DE 


;Save new cursor pos 


0D13 CDF80B 


18390 




CALL 


CRSBOL 


;Get start of line 


0D16 214F00 


18400 




LD 


HL,79 


;Calculate end of line 


0D19 19 


18410 




ADD 


HL,DE 


;HL = end of line 


0D1A Dl 


18420 




POP 


DE 


;DE = current position 


0D1B D5 


18430 




PUSH 


DE 




0D1C 1804 


18440 
18450 


s 


JR 


CLREOF2 


;Clear the line 




18460 


9 


Clear 


to the end of the frame 




18470 


9 








0D1E D5 


18480 


CLREOF 


PUSH 


DE 


;Save current cursor pos 


0D1F 217FFF 


18490 CLRE0F1 


LD 


HL S CRTEND 


; Point to last RAM byte 


0D22 3ACB0D 


18500 


CLRE0F2 


LD 


A s (INVIDEO) 


;P/u normal/reverse 


0D25 CBEF 


18510 




SET 


5 S A 


; & make it a space 


0D27 12 


18520 




LD 


(DE),A 


; Stuff the "space" 


0D28 B7 


18530 




OR 


A 


;Reset carry for subtract 


0D29 ED52 


18540 




SBC 


HL S DE 


;Calculate length 


0D2B 2809 


18550 




JR 


Z s CLREOF3 


;Back if at end already 


0D2D C5 


18560 




PUSH 


BC 




0D2E 44 


18570 




LD 


B S H 


;Xfer length to BC 


0D2F 4D 


18580 




LD 


C.L 




0D30 62 


18590 




LD 


H,D 


;Xfer start to HL 


0D31 6B 


18600 




LD 


L,E 




0D32 13 


18610 




INC 


DE 


;Bump up by one 


0D33 EDB0 


18620 




LDIR 




;Propagate the space 


0D35 CI 


18630 




POP 


BC 




0D36 Dl 


18640 


CLREOF 3 


POP 


DE 




0D37 C9 


18650 
18660 


9 


RET 








18670 


9 


Routine to stuff the 


video cursor RAM address 




18680 


9 








0D38 CDD00D 


18690 0VDCTL3 CALL 


ROWCOL 2 ADDR ;Calculate video address 


0D3B C0 


18700 




RET 


NZ 


;Back on error 


0D3C F3 


18710 




Dl 




;Disable any video tasks 


0D3D ED53950B 18720 




LD 


(CURSOR ),DE 


; until cursor is updated 


0D41 C9 


18730 
18740 


9 


RET 
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18750 


, Video control SVC processor 




18760 










18770 @ VDCTL 






0D42 CD 1708 


18780 
18790 


CALL 


ENADIS_DO_RAM 


; Bring up the video RAM 




18800 


Test if 


in Task processor 




18810 








0D45 3A7700 


18820 


LD 


A,(NFLAG$) 


;P/u NFLAG$ 


0D48 CB77 


18830 


BIT 


6, A 


;Test for task process 


0D4A 2015 


18840 
18850 


JR 
> 


NZ, VDCTL 


;If so skip setup 




18860 . 


HANDLES 


@VDCTL screen set up for normal use 




18870 








0D4C D5 


18880 


PUSH 


DE 




0D4D CDB30D 


18890 


CALL 


$N0 


formalize character at cursor 


0D50 Dl 


18900 


POP 


DE 


;Recover value 


0D51 D5 


18910 


PUSH 


DE 




0D52 CD610D 


18920 


CALL 


VDCTL 


;Do function request 


0D55 F5 


18930 


PUSH 


AF 


;Save the error status 


0D56 F3 


18940 


Dl 




;Stop video tasks tempy 


0D57 ED5B950B 18950 


LD 


DE, (CURSOR) 




0D5B CDCC0B 


18960 


CALL 


DO RET1 


formalize screen and cursor 


0D5E Fl 


18970 


POP 


AF 




0D5F Dl 


18980 


POP 


DE 




0D60 C9 


18990 
19000 


RET 

> 






0D61 3E09 


19010 \ 


/DCTL LD 


A,9 


;Check for VIDLINE, 


0D63 B8 


19020 


CP 


B 


; function 9 


0D64 2825 


19030 


JR 


Z 9 VIDLIN 




0D66 3E2B 


19040 


LD 


A 9 43 


;Prepare for user ERROR 


0D68 05 


19050 


DEC 


B 




0D69 2843 


19060 


JR 


Z S GET @ ROWCOL 


;<C> from row~H 9 col-L 


0D6B 05 


19070 


DEC 


B 




0D6C 2858 


19080 


JR 


Z 9 PUT @ ROWCOL 


;<C> to row-H s col-L 


0D6E 05 


19090 


DEC 


B 




0D6F 28C7 


19100 


JR 


Z,@VDCTL3 


;Set cursor to H S L 


0D71 05 


19110 


DEC 


B 




0D72 287D 


19120 


JR 


Z 9 ADDR 2 ROWCOL 


;Cursor row s col to H 9 L 


0D74 1100F8 


19130 


LD 


DE 9 CRTBGN$ 


;Init to start of video 


0D77 05 


19140 


DEC 


B 




0D78 282D 


19150 


JR 


Z 9 VIDM0V1 


;User RAM to video 


0D7A 05 


19160 


DEC 


B 




0D7B 2822 


19170 


JR 


Z,VIDMOVE 


;Video RAM to user 


0D7D 05 


19180 


DEC 


B 




0D7E CAF30C 


19190 


JP 


Z 9 SET SCROLL 


;Set scroll protect 


0D81 05 


19200 


DEC 


B 




0D82 C0 


19210 
19220 


RET 


NZ 


;Return if bad request 




19230 


, Establish cursor character 




19240 








0D83 E5 


19250 


PUSH 


HL 




0D84 21980B 


19260 


LD 


HL 9 CRSCHAR 


;Point to cursor char storage 


0D87 7E 


19270 


LD 


A,(HL) 


;P/u current cursor character 


0D88 71 


19280 


LD 


(HL) 9 C 


; & update with new one 


0D89 El 


19290 


POP 


HL 




0D8A C9 


19300 
19310 


RET 
» 








19320 


VIDLIN 


routine function 


- 9 in register B 




19330 
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0D8B 2E00 
0D8D D5 
0D8E CDD00D 
0D91 El 
0D92 C0 
0D93 0C 
0D94 0D 
0D95 2801 
0D97 EB 
0D98 015000 
0D9B EDB0 
0D9D AF 
0D9E C9 



0D9F 7C 
0DA0 C608 
0DA2 FE2C 
0DA4 3847 
0DA6 EB 
0DA7 018007 
0DAA EDB0 
0DAC BF 
0DAD C9 



0DAE CDD00D 
0DB1 1A 
0DB2 C9 



0DB3 E5 
0DB4 217F00 
0DB7 CBFE 
0DB9 El 
0DBA ED5B950B 
0DBE 3A970B 
0DC1 B7 

0DC2 2009 
0DC4 1A 
0DC5 C9 



0DC6 CDD00D 
0DC9 C0 
0DCA 3E00 
0DCB 
0DCC Bl 
0DCD 12 
0DCE BF 
0DCF C9 
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19340 
19350 
19360 
19370 
19380 
19390 
19400 
19410 
19420 
19430 
19440 
19450 
19460 
19470 
19480 
19490 
19500 
19510 
19520 
19530 
19540 
19550 
19560 
19570 
19580 
19590 
19600 
19610 
19620 
19630 
19640 
19650 
19660 
19670 
19680 
19690 
19700 
19710 
19720 
19730 
19740 
19750 
19760 
19770 
19780 
19790 
19800 
19810 
19820 
19830 
19840 
19850 
19860 
19870 
19880 
19890 
19900 
19910 
19920 



VIDLIN LD 

PUSH 

CALL 

POP 

RET 

INC 

DEC 

JR 

EX 

MOVLIN LD 
LDIR 
XOR 
RET 



L,0 ;Always starts at col 

DE ;Save user buffer 

R0WC0L_2_ADDR ;Get address to DE 

HL ;Recover user buffer 

NZ ;Quit on bad address 

C ;Check direction 

C ; If Z then to screen 

Z,M0VLIN ;Set to go 

DE,HL ;Reverse direction 

BC.LINESIZ ;Set line size 

;Move it 

A :Z on RET 



Routine to move video RAM 



VIDMOVE LD 
ADD 
CP 
JR 
EX 

VIDMOV1 LD 
LDIR 
CP 
RET 



A,H 

A s 8 

24H+8 

C,PERR 

DE,HL 

BC.CRTSIZE 

A 



;Check on user buffer 
; not above X'F800' & 
; not below X'2400' 

;Xchng user buffer s screen 
;Set for full screen xfer 

;Set Z flag 



Routine to get the character at row 9 col 



GETJMROWCOL 
CALL 
LD 
RET 



R0WC0L_2_ADDR ;Get Address of req 
A S (DE) ;P/u the character 

;Back on error or no error 



Routine to halt blinking cursor & restore char 



$N0 



PUSH 

LD 

SET 

POP 

LD 

LD 

OR 

JR 
LD 
RET 



HL 

HL S VFLAG$ 

7,(HL) 

HL 

DE, (CURSOR) 

A,(CRSAVE) 

A 

NZ,PUTA@DE 
A,(DE) 



Disable blinking cursor 

Get cursor pos in DE 
P/u saved character 
If one is saved, put 
it on screen, else 
ignore it 
;Cursor not ON but get 
; character anyway 



Routine to put a character at row, col 



PUT_@_ROWCOL 
CALL 
RET 

PUTja LD 

INVIDEO EQU 
OR 

PUTAtaDE LD 
CP 
RET 



R0WC0L_2_ADDR 

NZ 

A,0 

$-1 

C 

(DE),A 

A 



;Get address of req 

;Back on error 

;Merge in reverse video 



;Put the character 
;Set Z-flag for return 
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0DD0 3E4F 
0DD2 BD 
0DD3 3818 
0DD5 7C 
0DD6 FE18 
0DD8 3013 
0DDA E5 
0DDB C5 
0DDC 4D 
0DDD 06 F8 
0DDF 215000 
0DE2 CDC 906 
0DE5 65 
0DE6 6F 
0DE7 09 
0DE8 EB 
0DE9 CI 
0DEA El 
0DEB AF 
0DEC C9 
0DED 3E2B 
0DEF B7 
0DF0 C9 



0DF1 2A950B 
0DF4 7C 
0DF5 E607 
0DF7 67 
0DF8 3E50 
0DFA CDE306 
0DFD 65 
0DFE 6F 
0DFF AF 
0E00 C9 
0E00 
0E01 

0E01 
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19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
01700 
20350 
20360 



Routine to calculate cursor position from row,col 



R0WC0L_2_ADDR 
LD 
CP 
JR 
LD 
CP 
JR 

PUSH 
PUSH 
LD 
LD 
LD 

CALL 
LD 
LD 
ADD 
EX 
POP 
POP 
XOR 
RET 
LD 
OR 
RET 



PERR 



A, 79 

L 

C.PERR 

A,H 

24 

NC.PERR 

HL 

BC 

C,L 

B,CRTBGN$<-8 

HL,LINESIZ 

0MUL16 

H,L 

L,A 

HL, BC 

DE,HL 

BC 

HL 

A 

A, 43 

A 



;Error if > 79 
;P/u row number 

;Error if > 23 



;Save column 

;Set to start of DO RAM 

;Rows * line size 
;Shift to HL 

;Add in col & RAM start 
;Address to DE 



;Set Z flag 

;SVC parameter error 
;Set NZ condition 



Routine to get row, col of video cursor 



ADDR_2_R0WC0L 

LD HL, (CURSOR) 

ADDR1 LD A,H 

AND 7 

LD H,A 

LD A,LINESIZ 

CALL @DIV16 

LD H,L 

LD L,A 

XOR A 

RET 

DOEND EQU $-1 
*GET PRDVR:3 
;PRDVR/ASM - LS-DOS 6.2 

SUBTTL '<Printer Driver> 



;Get addr in HL 

;Make address relative 

; to origin 

;Set divisor 

;Row to register H 
;Column to register L 
;Set zero return code 



;Printer driver & filter 
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20380 * 


f M0D 








00F8 


20390 PRPORT 
20400 ; 










20410 ; 




PR driver entry point 






20420 s 




It pas 


ses X'00 , -X'FF' 






20430 ; 




Unless 


INTL version 






20440 5 










0E01 180A 


20450 PRDVR 


JR 


PRBGN 


;Branch around linkage 


0E03 3C0E 


20460 


DW 


PREND 


;Last byte used 


0E05 03 


20470 


DB 


3,'$PR' 




24 50 52 










0E09 1802 


20480 


DW 


PRDCB$ 


; Pointer to its DCB 


0E0B 0000 


20490 
20500 ; 


DW 





;Reserved 




20510 ; 


Driver 


code 






20520 ; 








0E0D 280A 


20530 PRBGN 


JR 


Z,$02 


;Go if output 


0E0F 3804 


20540 
20550 ; 


JR 


C$01 


;Go if input req 




20560 ; 


Character CTL request 






20570 ; 








0E11 79 


20580 


LD 


A,C 


;If CTL 0, return 


0E12 B7 


20590 


OR 


A 


; status else 


0E13 2821 


20600 
20610 ; 


JR 


Z,$04 


; treat as a Get 




20620 ; 


Character GET request 






20630 ; 








0E15 F6FF 


20640 $01 


OR 


0FFH 


;Set nz 


0E17 2F 


20650 


CPL 




; & A=0 to show 


0E18 C9 


20660 
20670 ; 


RET 




; no char available 




20680 ; 


Character PUT request 






20690 ; 








0E19 11D007 


20700 $02 


LD 


DE,2000 


;Check status 2000 times 


0E1C CD360E 


20710 $02A 


CALL 


$04 


;PR ready? 


0E1F 2811 


20720 


JR 


Z,$03 


;Go if so 




20730 












20740 




Ten second timout delay 


loop 




20750 










0E21 C5 


20760 


PUSH 


BC 


;Printer was not ready 


0E22 015401 


20770 


LD 


BC.340 




0E25 CD8203 


20780 


CALL 


PAUSE? 


; Del ay a bit 


0E28 CI 


20790 


POP 


BC 




0E29 IB 


20800 


DEC 


DE 


;Time up? 


0E2A 7A 


20810 


LD 


A,D 




0E2B B3 


20820 


OR 


E 




0E2C 20EE 


20830 


JR 


NZ,$02A 


;Nope, continue check 


0E2E 3E08 


20840 


LD 


A, 8 


;Device not avail.. . 


0E30 B7 


20850 


OR 


A 


;Set NZ condition 


0E31 C9 


20860 


RET 






0E32 


20870 $03 
20880 ; 


EQU 


$ 






20890 


IF 


0INTL 






20900 


LD 


A,(IFLAG$) 






20910 


BIT 


6, A 


;Special DMP PR? 




20920 


ENDIF 








20930 ; 








0E32 79 


20940 
20950 ; 


LD 


A,C 






20960 




IF 


0INTL 
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0E33 D3F8 



0E35 C9 

0E36 DBF8 
0E38 E6F0 
0E3A FE30 
0E3C C9 
0E3C 
0E3D 

0E3D 



20970 
20980 
20990 
21000 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
01710 
21210 
21220 



PVAL2 



PVAL3 



$04 



PREND 



JR 

CP 

JR 

SUB 

JR 

CP 

JR 

ADD 

ENDIF 



IF 
LD 
CP 
ENDIF 

RET 

IN 

AND 

CP 

RET 

EQU 



Z,PVAL3 

0C0H 

C.PVAL2 

20H 

PVAL3 

0A0H 

CPVAL3 

A,40H 



@INTL 

A,C 

A 



A,(PRPORT) 

0F0H 

30H 



$-1 



*GET FDCDVR:3 
;FDCDVR/ASM - LS-DOS 6.2 

SUBTTL '<F loppy Disk 



;Values C0-FF (-20H) 

;Go if less 

;Shift to European chars 

;A0-BF (+40H) 

;Go if less 

; Shift to graphics 



;Put out char 



;Restore original 
;Set Z 



;Scan PR status 

;Mask unused positions 

;PR ready? 

;Return with answer 

;Floppy disk driver 

Driver>' 
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00E4 
00F0 
00F0 
00F1 
00F2 
00F3 
00F4 



0E3D 184F 
0E3F F30F 
0E41 03 

24 46 44 



0E45 3E03 
0E47 B8 
0E48 285E 

0E4A FD7E03 
0E4D EE40 
0E4F FD7703 
0E52 010924 
0E55 CB77 
0E57 2803 
0E59 011145 
0E5C FD7107 
0E5F FD7008 
0E62 C9 



0E63 21E80F 
0E66 3E2D 
0E68 IE 



0E69 AF 
0E6A 327D0E 
0E6D CD2B0F 
0E70 1E16 
0E72 DBF0 
0E74 A3 
0E75 28FB 
0E77 EDA2 
0E79 F3 
0E7A 7A 
0E7B D3F4 



21240 
21250 
21260 
21270 
21280 
21290 
21300 
21310 
21320 
21330 
21340 
21350 
21360 
21370 
21380 
21390 
21400 
21410 
21420 
21430 
21440 



HL=> buffer address 
D=> track desired 
E=> sector desired 
C=> drive desired 
B=> disk primitive command 



WRNMIPORT 

F DC ADR 

F DC STAT 

TRKREG 

SECREG 

DATREG 

DSELCT 



21450 

21460 

21470 

21480 SWDEN 

21490 

21500 

21510 

21520 ; 

21530 

21540 

21550 

21560 

21570 

21580 

21590 

21600 SDEN 

21610 

21620 

21630 ; 

21640 ; 

21650 ; 

21660 VERFIN 

21670 

21680 

21690 

21700 

21710 

21720 RDIN 

21730 

21740 

21750 

21760 RDIN1 

21770 

21780 

21790 

21800 

21810 

21820 RDIN2 



Disk Driver Entry Point 



FDCDVR JR 
DW 
DB 



FDCBGN 
FDCEND 
3,'$FD 



NMI mask register 

FDC command 

FDC status 

FDC track register 

FDC sector register 

FDC data register 

Drive select port 



;Branch to entry code 
;Last byte used 
; Module name 



Automatic density recognition and retry density switch 



LD 
CP 
JR 

LD 

XOR 

LD 

LD 

BIT 

JR 

LD 

LD 

LD 

RET 



A,3 

B 

Z,REST0R 

A,(IY+3) 

40H 

(IY+3),A 

BC,2409H 

6, A 

Z,SDEN 

BC,4511H 

(IY+7),C 

(IY+8),B 



Check counter for 2 

tries left after this one 
If so try a RESTORE 

;Flip the density bit, 
; Bit 6, (IY+3) 

;Set alloc to SDEN 
;Test SDEN/DDEN 
;Do SDEN if it was DDEN 
; else set alloc to DDEN 



Verify routine 



LD 
LD 
DB 



HL, BUCKET 

A 9 2DH 

1EH 



Read routine 



XOR 

LD 

CALL 

LD 

IN 

AND 

JR 

INI 

DI 

LD 

OUT 



A 

(CKVER),A 

RWINIT 

E,16H 

A, (FDCSTAT) 

E 

Z,RDIN1 



A,D 
(DSELCT) ,A 



;Set byte bucket 
;Set for DEC L,... 
;Ignore next with LD E,n 



;Set for NOP 

; Initialize 
;Status mask 
;Get status 
;Loop until DRQ 
; or error 
;Grab byte 

;Get drive sel + WSGEN 
;Initiate wait state 
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0E7D 00 


21830 CKVER 


NOP 




;DEC L: if verify 


0E7E EDA2 


21840 


INI 




;Xfer byte 


0E80 20F9 


21850 
21860 ; 


JR 


NZ 9 RDIN2 


;Loop then TSTBSY 




21870 ; 


Reselect drive whi le 


controller is busy 




21880 ; 








0E82 DBF0 


21890 TSTBSY 


IN 


A,(FDCSTAT) 


;Ck FDC status 


0E84 CB47 


21900 


BIT 


0,A 


;Busy? 


0E86 C8 


21910 


RET 


Z 


;RET if not 


0E87 3A1B00 


21920 


LD 


A, (PDRV$) 


;P/u drive 


0E8A D3F4 


21930 


OUT 


(DSELCT),A 


; & reselect 


0E8C 18F4 


21940 
21950 ; 


JR 


TSTBSY 


;Loop until idle 




21960 ; 


Driver 


start 






21970 ; 








0E8E 78 


21980 FDCBGN 


LD 


A,B 


;P/u primitive request 


0E8F A7 


21990 


AND 


A 


;NOP? 


0E90 C8 


22000 


RET 


Z 


;Quit if so 


0E91 FE07 


22010 


CP 


7 




0E93 28ED 


22020 


JR 


Z.TSTBSY 


;Jump on TSTBSY request 


0E95 D2440F 


22030 


JP 


NC.IORQST 


;Jump on I/O request 


0E98 FE06 


22040 


CP 


6 




0E9A 284C 


22050 


JR 


Z 9 SEEKTRK 


;Jump on track seek 


0E9C 3D 


22060 


DEC 


A 




0E9D 2811 


22070 


JR 


i— 5 OC L.C \j 1 


;Jump on drive select 


0E9F FD3405 


22080 


INC 


(IY+5) 


;Bump current cylinder 


0EA2 FE04 


22090 


CP 


4 




0EA4 0658 


22100 


LD 


B 9 58H 


;FDC step-in command 


0EA6 2872 


22110 


JR 


Z 9 STEPIN 




0EA8 FD360500 


22120 RESTOR 


LD 


(IY+5) S 


;Set track to 


0EAC 0608 


22130 


LD 


B,8 


;Restore drive 


0EAE 186A 


22140 
22150 ; 


JR 


STEPIN 




0EB0 CD820E 


22160 SELECT 


CALL 


TSTBSY 


;Check drive status 


0EB3 07 


22170 


RLCA 






0EB4 F5 


22180 


PUSH 


AF 


;Save NOT READY flag 


0EB5 C5 


22190 


PUSH 


BC 




0EB6 FD7E03 


22200 


LD 


A 9 (IY+3) 


;P/u SDEN/DDEN 


0EB9 17 


22210 


RLA 




;Bit 6=>7 9 bit 4=>4 


0EBA CB2F 


22220 


SRA 


A 




0EBC E690 


22230 


AND 


90H 


;Keep only DDEN & side 1 


0EBE 4F 


22240 


LD 


C S A 


;Save the bits 


0EBF CB7F 


22250 


BIT 


7 9 A 


;Check if SDEN or DDEN 


0EC1 2808 


22260 


JR 


Z s NOPCMP 


;No precomp if SDEN 


0EC3 FD7E09 


22270 


LD 


A,(IY+9) 


;Set precomp on all 


0EC6 BA 


22280 


CP 


D 


; tracks above DIR 


0EC7 3002 


22290 


JR 


NC S NOPCMP 


;Go if no precomp needed 


0EC9 CBE9 


22300 


SET 


5 9 C 


;Request precomp 


0ECB FD7E04 


22310 NOPCMP 


LD 


A 9 (IY+4) 


;Get drive sel code 


0ECE E60F 


22320 


AND 


0FH 


;Keep only sel bits 


0ED0 Bl 


22330 


OR 


C 


;Merge in bits 4 9 5 9 7 


0ED1 CI 


22340 


POP 


BC 




0ED2 D3F4 


22350 


OUT 


(DSELCT) 9 A 


;Select drive 


0ED4 321B00 


22360 


LD 


(PDRV$) 9 A 


; Store port byte 


0ED7 Fl 


22370 


POP 


AF 


;Retrieve Not Ready bit 


0ED8 D0 


22380 


RET 


NC 


;Ret if was ready 


0ED9 FDCB0356 


22390 


BIT 


2 9 (IY+3) 


;Check DELAY=0.5 or 1.0 


0EDD CCE00E 


22400 


CALL 


Z 9 FDCDLY 


;Double delay if 1.0 


0EE0 C5 


22410 FDCDLY 


PUSH 


BC 


;Delay routine 
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0EE1 067F 


22420 




LD 


B,7FH 




0EE3 CD8203 


22430 




CALL 


PAUSED 




0EE6 CI 


22440 




POP 


BC 




0EE7 C9 


22450 
22460 


9 


RET 








22470 


9 


Routine to seek a tr 


ack 




22480 


» 








0EE8 CD820E 


22490 


SEEKTRK 


CALL 


TSTBSY 


;Wait till not busy 


0EEB FD7E05 


22500 




LD 


A,(IY+5) 


;P/u current cylinder 


0EEE D3F1 


22510 




OUT 


(TRKREG) 9 A 


; & set FDC to current 


0EF0 FD7E07 


22520 




LD 


A s (IY+7) 


;P/u alloc data 


0EF3 E61F 


22530 




AND 


1FH 


;Get highest # sector 


0EF5 93 


22540 




SUB 


E 


;Form req sector minus 


0EF6 2F 


22550 




CPL 




; max, setting CY flag if 


0EF7 FDCB03A6 22560 




RES 


4,(IY+3) 


; init side select to 


0EFB 300B 


22570 




JR 


NC, SETSECT 


;Go if sector on side 


0EFD FDCB046E 22580 




BIT 


5 9 (IY+4) 


;If not 2-sided media. 


0F01 2806 


22590 




JR 


Z 9 FRCSID0 


; don't set side 1 


0F03 FDCB03E6 22600 




SET 


4 9 (IY+3) 


;Set side 1 


0F07 IE 


22610 




DB 


1EH 


jlgnore next with LD E 9 n 


0F08 7B 


22620 


SETSECT 


LD 


A 9 E 


;Restore unaltered sec # 


0F09 D3F2 


22630 FRCSID0 OUT 


(SECREG) 9 A 


;Set sector 


0F0B 7A 


22640 




LD 


A 9 D 




0F0C D3F3 


22650 




OUT 


(DATREG) 9 A 


;Set desired track 


0F0E FDBE05 


22660 




CP 


(IY+5) 


;If at desired track, 


0F11 0618 


22670 




LD 


B 9 18H 


; use seek, else use 


0F13 2805 


22680 




JR 


Z 9 STEPIN 


; seek w/ verify 


0F15 FD7205 


22690 




LD 


(IY+5) 9 D 


; Update current cylinder 


0F18 061C 


22700 




LD 


B 9 1CH 


;Seek w/ verify ocmmand 


0F1A CDB00E 


22710 


STEPIN 


CALL 


SELECT 


;Select drive 


0F1D FD7EJ93 


22720 




LD 


A 9 (IY+3) 




0F20 E603 


22730 




AND 


3 


;Strip all but step rate 


0F22 B0 


22740 




OR 


B 




0F23 D3F0 


22750 


PASSCMD 


OUT 


(FDCADR) 9 A 


;Give FDC its command 


0F25 0612 


22760 




LD 


B 9 12H 




0F27 10FE 


22770 




DJNZ 


$ 


;Wait 


0F29 AF 


22780 




XOR 


A 




0F2A C9 


22790 FDCRET 


RET 








22800 


s 










22810 


9 


Read 


and write init 


routines 




22820 


9 








0F2B 7A 


22830 RWINIT 


LD 


A,D 


;Restuff trk reg 


0F2C D3F1 


22840 




OUT 


(TRKREG) 9 A 




0F2E 3A1B00 


22850 




LD 


A 9 (PDRV$) 


;Get select code 


0F31 F640 


22860 




OR 


40H 


;Set WSGEN bit 


0F33 57 


22870 




LD 


D,A 


;Save code in D 


0F34 E610 


22880 




AND 


10H 


;Get side sel bit 


0F36 0F 


22890 




RRCA 




; to bit 3 


0F37 CB49 


22900 




BIT 


1,C 


;Check if doing side cmp 


0F39 2001 


22910 




JR 


NZ,GETCMD 


;Go if so 


0F3B AF 


22920 




XOR 


A 




0F3C Bl 


22930 


GETCMD 


OR 


C 




0F3D 0EF3 


22940 




LD 


CDATREG 


;Get port into C 


0F3F CD0E00 


22950 




CALL 


FDDINT$ 


interrupts on or off? 


0F42 18 DF 


22960 
22970 




JR 


PASSCMD 


;Pass command to ctrlr 




22980 




I/O request handler 






22990 










0F44 CB50 


23000 


IORQST 


BIT 


2,B 


;Write command? 



Page 50 



The Source SYSTEM Files 
Floppy Disk Driver 



LOWCORE - LS-DOS 6.2 



Page 



0F46 ED4B7A00 23010 




LD 


BC,(RFLAG$-1) 


;P/u retry count 


0F4A 0E82 


23020 




LD 


C,82H 


;FDC cmd=readsec 


0F4C 2010 


23030 




JR 


NZ,WRCMD 


;Go if write command 


0F4E FE0A 


23040 




CP 


10 


;Verify sector? 


0F50 2806 


23050 




JR 


Z, VERFY 




0F52 CD790F 


23060 




CALL 


GRABNDO 


;Grab next code & insert 


0F55 01 


23070 




DB 


1 


;Error code start 


0F56 690E 


23080 




DW 


RDIN 


;Read entry point 


0F58 CD790F 


23090 


VERFY 


CALL 


GRABNDO 


;Stuff I/O direction 


0F5B 01 


23100 




DB 


1 


;Error code start 


0F5C 630E 


23110 




DW 


VERFIN 


; Verify entry point 


0F5E FDCB037E 


23120 WRCMD 


BIT 


7.UY+3) 


; Software WP? 


0F62 2803 


23130 




JR 


Z S WRCMD1 


;Bypass if not 


0F64 3E0F 


23140 




LD 


A, 15 


;Else set WP error 


0F66 C9 


23150 




RET 






0F67 0EA2 


23160 


WRCMDl 


LD 


C0A2H 


; Write sector FDC command 


0F69 FE0E 


23170 




CP 


14 


;Directory sector? 


0F6B 3806 


23180 




JR 


C.DOWRIT 




0F6D 0EA3 


23190 




LD 


C.0A3H 


; Change DAM if directory 


0F6F 2802 


23200 




JR 


Z s DOWRIT 




0F71 0EF0 


23210 




LD 


C0F0H 


; else write track 


0F73 CD790F 


23220 


DO WRIT 


CALL 


GRABNDO 


; Switch code 


0F76 09 


23230 




DB 


9 


; Error code start 


0F77 BC0F 


23240 
23250 


3 


DW 


WROUT 


; Write entry point 




23260 


S 


Routine stuffs error st 


art byte & I/O vector 




23270 


3 








0F79 E3 


23280 GRABNDO 


EX 


(SP) S HL 


;Save HL & get ret addr 


0F7A 7E 


23290 




LD 


A,(HL) 


;P/u & stuff error code 


0F7B 23 


23300 




INC 


HL 


; start byte 


0F7C 32B50F 


23310 




LD 


(ERRSTRT+1) S A 




0F7F 7E 


23320 




LD 


A S (HL) 


;Set up data transfer 


0F80 23 


23330 




INC 


HL 


; direction vector 


0F81 66 


23340 




LD 


H S (HL) 




0F82 6F 


23350 




LD 


L S A 




0F83 22930F 


23360 




LD 


(CALLIO) s HL 


;Stuff CALL vector 


0F86 El 


23370 
23380 


S 


POP 


HL 


;Restore buffer addr 




23390 


S 


Main 


I/O handler routine 




23400 


9 








0F87 C5 


23410 RETRY 


PUSH 


BC 


;Save retry & FDC command 


0F88 D5 


23420 




PUSH 


DE 


;Save track/sector 


0F89 E5 


23430 




PUSH 


HL 


;Save buffer 


0F8A CB61 


23440 




BIT 


4,C 


;Test for track command 


0F8C CCE80E 


23450 




CALL 


Z,SEEKTRK 


;Seek if not track write 


0F8F CD820E 


23460 




CALL 


TSTBSY 


;Wait till not busy 


0F92 CD0000 


23470 




CALL 





;Call I/O routine 


0F93 


23480 CALLIO 


EQU 


$-2 


;Data xfer direction 


0F95 00 


23490 
23500 


DISKEI 


NOP 




;Will be changed to a EI after 
; BOOT has read in SYS0 


0F96 DBF0 


23510 




IN 


A,(FDCSTAT) 


;Get status 


0F98 E67C 


23520 




AND 


7CH 


;Strip all but 2-6 


0F9A El 


23530 




POP 


HL 




0F9B Dl 


23540 




POP 


DE 


;Rcvr track & sector 


0F9C CI 


23550 




POP 


BC 


;Rcvr retry count & cmd 


0F9D C8 


23560 




RET 


Z 


;Ret if no error 


0F9E CB57 


23570 




BIT 


2,A 


;Lost data? 


0FA0 20E5 


23580 




JR 


NZ S RETRY 


; Don't count this retry 


0FA2 F5 


23590 




PUSH 


AF 
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0FA3 E618 


23600 


AND 


18H 


0FA5 280B 


23610 


JR 


Z, DISKDUN 


0FA7 CB67 


23620 


BIT 


4 S A 


0FA9 C5 


23630 


PUSH 


BC 


0FAA C4450E 


23640 


CALL 


NZ S SWDEN 


0FAD CI 


23650 


POP 


BC 


0FAE Fl 


23660 


POP 


AF 


0FAF 10D6 


23670 


DJNZ 


RETRY 


0FB1 06 


23680 


DB 


6 


0FB2 Fl 


23690 DISKDUN 


POP 


AF 


0FB3 47 


23700 


LD 


B,A 


0FB4 3E00 


23710 ERRSTRT 


LD 


A,0 


0FB6 CB08 


23720 ERRTRAN 


RRC 


B 


0FB8 D8 


23730 


RET 


C 


0FB9 3C 


23740 


INC 


A 


0FBA 18FA 


23750 
23760 ; 


JR 


ERRTRAN 




23770 ; 


Write 


routine 




23780 ; 






0FBC CD2B0F 


23790 WROUT 


CALL 


RWINIT 


0FBF 1E76 


23800 


LD 


E 9 76H 


0FC1 DBF0 


23810 WR01 


IN 


A S (FDCSTAT) 


0FC3 A3 


23820 


AND 


E 


0FC4 28FB 


23830 


JR 


Z 9 WR01 


0FC6 EDA3 


23840 


OUT I 




0FC8 F3 


23850 


DI 




0FC9 DBF0 


23860 


IN 


A S (FDCSTAT) 


0FCB IF 


23870 


RRA 




0FCC D0 


23880 


RET 


NC 


0FCD 3EC0 


23890 


LD 


A s 0C0H 


0FCF D3E4 


23900 


OUT 


(WRNMIPORT) s A 


0FD1 0650 


23910 


LD 


B 9 50H 


0FD3 10FE 


23920 


DJNZ 


$ 


0FD5 46 


23930 


LD 


B S (HL) 


0FD6 23 


23940 


INC 


HL 


0FD7 7A 


23950 WR03 


LD 


A 9 D 


0FD8 D3F4 


23960 


OUT 


(DSELCT),A 


0FDA DBF0 


23970 


IN 


A,(FDCSTAT) 


0FDC A3 


23980 


AND 


E 


0FDD 28F8 


23990 


JR 


Z 9 WR03 


0FDF ED41 


24000 


OUT 


(C),B 


0FE1 7A 


24010 


LD 


A 9 D 


0FE2 D3F4 


24020 WR02 


OUT 


(DSELCT) S A 


0FE4 EDA3 


24030 


OUT I 




0FE6 18FA 


24040 


JR 


WR02 




24050 


IFEQ 


$&0FFH 9 0FFH 




24060 


ERR 


'Warning... BU< 




24070 


ENDIF 




0FE8 53 


24080 BUCKET 
24090 ; 


DB 


'S' 


0FE9 AF 


24100 (9RSTNMI 


XOR 


A 


0FEA D3E4 


24110 


OUT 


(WRNMIP0RT) 9 A 


0FEC 016400 


24120 


LD 


BC 9 100 


0FEF CD8203 


24130 


CALL 


PAUSED 


0FF2 El 


24140 


POP 


HL 


0FF3 C9 


24150 


RET 




0FF3 


24160 FDCEND 


EQU 


$-1 


0FF4 


01720 DVREND$ 


EQU 


$ 




01730 


IFGT 


$ 9 1200H+START$ 



;Record not found or CRC 
;No retries if otherwise 
;Record not found? 
;If so 9 switch 
; density or restore 



;Count down retry 

;Ignore next with "LD B 9 nn" 

; Adjust ret code 

;Start with R-l, W=9 



;Set up initialization 

; Status mask 

;P/u status 

;Fall out on DRQ or error 

; else loop 

;Xfer byte to FDC 

;Now kill the interrupts 

;Check for errors 

;Did BUSY drop? 

;Quit now if so 

;Enable INTRQ and timeout 

;Time delay for WRSEC 

;Get next byte early 

;Enable wait states 

;Check if timed out 
;Loop back if it timed 
; out (must be WRTRK) 
;Pass 2nd byte 
;Get sel code + WSGEN bit 
;Pass until FDC times out 
; & generates NMI 



BUCKET position error 



;NMI vectors here 
;Disable INTRQ & timeout 
;Need to wait a moment 
;Call pause 
:Discard return 



;Start of low I/O area, to 12FFH 
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01740 ERR 'Drivers overflow available RAM 

01750 ENDIF 
1300 01760 ORG 1300H+START$ 
1300 01770 0BYTEIO EQU $ 
0000 01780 END 
00000 Total errors 
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$miN 


@$SYS 


08F0 01550 






$MAIN 


+0(31 


0000 01780 






$MAIN 


+@@2 


0000 01780 






$MAIN 


+@@3 


0000 01780 






$MAIN 


+(a@4 


0000 01780 






CLOCKS 


0BANK 


0877 09870 


IODVR 


05530 05730 


$miN 


(3BYTEIO 


1300 01770 


IODVR 


05870 


IODVR 


@CHNIO 


0689 05830 


IODVR 


05640 05980 


IODVR 


0CKBRKC 


0553 03600 






IODVR 


PCLS 


0545 03490 


IODVR 


04410 


IODVR 


@CTL 


0623 05170 


IODVR 


03750 


CLOCKS 


(BDATE 


07A8 08170 






MULDIV 


(3DIV16 


06E3 06580 MULDIV 


06920 








DODVR 


20280 


IODVR 


@DSP 


0642 05330 


IODVR 


03540 04360 04610 05040 


IODVR 


(PDSPLY 


052D 03290 


IODVR 


03030 04730 


$MAIN 


0FRENCH 


0000 00210 $MAIN 


00220 00250 








CLOCKS 


08620 








$MAIN 


01640 


$miN 


^GERMAN 


0000 00200 $MAIN 


00220 00250 








CLOCKS 


08590 








$MAIN 


01590 


IODVR 


@GET 


0638 05280 


IODVR 


05260 


CLOCKS 


0HEX16 


07 BD 08340 






CLOCKS 


0HEX8 


07C2 08370 


CLOCKS 


08350 


MULDIV 


(3HEXDEC 


06F6 06840 






$MAIN 


0HZ50 


0000 00320 


CLOCKS 


07420 


$MAIN 


@INTL 


0000 00300 


CLOCKS 

DODVR 

PRDVR 


08830 
15480 
20890 20960 21090 


IODVR 


@JCL 


0630 05250 


IODVR 


04040 


IODVR 


@KBD 


0635 05270 


IODVR 


05200 


IODVR 


@KEY 


0628 05200 


IODVR 


04000 05230 


IODVR 


@KEYIN 


0585 03980 






$MAIN 


0KITSK 


0089 00570 KIDVR 


11080 


IODVR 


0LOGER 


0503 03070 






IODVR 


0LOGOT 


0500 03030 






$MAIN 


0MOD2 


0000 00120 






$MAIN 


@M0D4 


FFFF 00130 






IODVR 


@MSG 


0530 03340 


IODVR 


03170 03190 03250 


MULDIV 


0MUL16 


06C9 06310 


DODVR 


20070 


DODVR 


(30PREG 


0084 15220 


B00T4 
CLOCKS 


01670 
09590 10470 


IODVR 


0PRINT 


0528 03240 






IODVR 


@PRT 


063D 05310 


KIDVR 


11430 11610 


IODVR 


@PUT 


0645 05340 


IODVR 


03400 03430 05320 


FDCDVR 


(9RSTNMI 


0FE9 24100 






IODVR 


0RSTREG 


0680 05750 


IODVR 


05420 


CLOCKS 


0TIME 


078D 07960 


IODVR 


03140 


$MAIN 


PUSA 


FFFF 00310 


CLOCKS 

$MAIN 

DODVR 


08560 08800 

01560 

15450 


DODVR 


0VDCTL 


0B99 15570 


KIDVR 


11350 


DODVR 


0VDCTL3 


0D38 18690 


DODVR 


19100 


DODVR 


@ VDCTL 


0D42 18770 


DODVR 


15570 


DODVR 


ADDR1 


0DF4 20240 


DODVR 


16170 


DODVR 


ADDR_2_ROWCOL 


0DF1 20220 


IODVR 


04780 








DODVR 


19120 


CLOCKS 


AFSAV 


0866 09670 


CLOCKS 


09180 09500 
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DODVR 


BACKSPA 


$MAIN 


BAR$ 


BOOT 4 


BOOT 


B00T4 


BOOTBUF 


B00T4 


BOOTSTS 


IODVR 


BRKTEST 


FDCDVR 


BUCKET 


B00T4 


BUFFER 


$MAIN 


BUR$ 


FDCDVR 


CALLIO 


KIDVR 


CAPSKEY 


KIDVR 


CASHK$ 


$MAIN 


CFLAG$ 


KIDVR 


CKCTL 


KIDVR 


CKCTL1 


KIDVR 


CKCTL2 


FDCDVR 


CKVER 


CLOCKS 


CLOCK 


DODVR 


CLREOF 


DODVR 


CLREOF1 


DODVR 


CLREOF 2 


DODVR 


CLREOF 3 


DODVR 


CLREOL 


IODVR 


CLRFRM 


KIDVR 


CLRTYP 


BOOT 4 


+CORE$ 


KIDVR 


CR 


DODVR 


CRSAVE 


DODVR 


CRSBKSP 


DODVR 


CRSBOL 


DODVR 


CRSCHAR 


DODVR 


CRSDOWN 


DODVR 


CRSFRW0 


DODVR 


CRSFRWD 


DODVR 


CRSHOME 


DODVR 


CRSOFF 


DODVR 


CRSON 


DODVR 


CRSUP 


DODVR 


CRTB6N$ 


DODVR 


CRTCADD 


DODVR 


CRTCDAT 


BOOT 4 


CRTCTAB 


DODVR 


CRTEND 


DODVR 


CRTSIZE 


DODVR 


CTL 


KIDVR 


CTLA2Z 


KIDVR 


CTLFF 


DODVR 


CURSOR 


$MAIN 


DATES 


FDCDVR 


DATREG 


$WIN 


DAYTBL$ 



0C12 16390 DODVR 


16870 


0201 00640 CLOCKS 


10310 


4300 01620 




43F6 00100 B00T4 


02120 


439D 02470 B00T4 


02480 


055 E 03680 IODVR 


03720 


0FE8 24080 FDCDVR 


21660 


1200 00090 B00T4 


02010 02080 02110 02180 02250 


0200 00630 CLOCKS 


10190 


0F93 23480 FDCDVR 


23360 


0A79 13210 KIDVR 


12770 


0A7B 13220 




006C 00470 IODVR 


04650 


0ACE 13670 




0AC8 13620 KIDVR 


13670 


0AD2 13690 KIDVR 


13610 


0E7D 21830 FDCDVR 


21730 


0787 07930 CLOCKS 


07510 


0D1E 18480 DODVR 


17210 


0D1F 18490 DODVR 


18100 


0D22 18500 DODVR 


18440 


0D36 18640 DODVR 


18550 


0D12 18380 DODVR 


17190 


001F 02990 IODVR 


03520 


0B65 14770 KIDVR 


13830 


0300 01600 B00T4 


02920 


000 D 10680 IODVR 


03380 


KIDVR 


10930 11020 11580 11600 


0B97 15520 CLOCKS 


07140 07350 


DODVR 


15870 15910 16240 19740 


0C1B 16470 DODVR 


16400 17070 


0BF8 16150 DODVR 


17170 18300 18390 


0B98 15530 CLOCKS 


07370 


DODVR 


15950 19260 


0C30 16650 DODVR 


17110 18320 


0CC3 17810 DODVR 


16730 17790 


0CBB 17760 DODVR 


17090 


0C05 16300 DODVR 


17150 


0C01 16240 DODVR 


16950 


0C00 16230 DODVR 


16930 


0C2B 16590 DODVR 


17130 17850 


F800 15300 B00T4 


01690 01700 02390 


CLOCKS 


07950 08300 


DODVR 


15310 15510 16310 16510 16690 17900 


DODVR 


19130 20050 


0088 15230 




0089 15240 




02FD 01550 B00T4 


01320 


FF7F 15310 DODVR 


17820 18340 18490 


0780 15280 B00T4 


01710 


DODVR 


15310 17910 19550 


0004 15440 DODVR 


15670 15840 


0A13 12630 KIDVR 


12510 


0AEC 13910 KIDVR 


13850 


0B95 15510 CLOCKS 


07340 


DODVR 


15970 18720 18950 19730 20230 


0033 00440 CLOCKS 


07670 08170 


00F3 21360 FDCDVR 


22650 22940 


04C7 01470 
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$MAIN 

$MAIN 

KIDVR 

$MAIN 

B00T4 

FDCDVR 

FDCDVR 

BOOT 4 

CLOCKS 

DODVR 

DODVR 

$MAIN 



DODVR 

DODVR 

DODVR 

CLOCKS 

FDCDVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

FDCDVR 

$MAIN 

IODVR 

BOOT 4 

$MAIN 

$MAIN 

KIDVR 

$MAIN 

CLOCKS 



BOOT 4 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

B00T4 

FDCDVR 

FDCDVR 

$MAIN 

KIDVR 
KIDVR 
$MAIN 



DCBKL$ 

DCT$ 

DELAY2 

DFLAG$ 

DIRTRK 

DISKDUN 

DISKEI 

DISKERR 

DIS_DO_RAM 

DOBGN 

DODATA$ 

DODCB$ 



DODVR 

DOEND 

DO NORM 

DOOPREG 

DOWRIT 

DO_CONTROL 

DO DSPCHAR 

DO_INVERT_DIS 

DO_INVERT_ENA 

DO_INVERT_OFF 

DO_MASK 

DO_RET 

DO_RETl 

DO_SCROLL 

DO_TABS 

DSELCT 

DSKTYP$ 

DSPBYT 

DSPLY 

DTPMT$ 

DVREND$ 

DVREXIT 

DVRHI$ 

ENADIS DO RAM 



ERRLEN 

ERRSTRT 

ERRTRAN 

FDCADR 

FDCBGN 

FDCDLY 

FDCDVR 

FDCEND 

FDCMD 

FDCRET 

F DC STAT 

FDDINT$ 

FIXCLR 
FIXSCL 
FLGTAB$ 



FDCDVR FRCSID0 



0031 00850 
0470 01150 
0A95 13340 
006 D 00480 
4302 01640 
0FB2 23690 
0F95 23490 
43E0 02880 
0846 09450 
0B9C 15610 
0B94 15400 
0210 00710 



0B88 15350 
0E00 20330 
0BC4 15830 
0858 09570 
0F73 23220 
0C44 16830 
0CB8 17710 
0C8C 17300 
0C89 17270 
0C9B 17420 
0000 15410 
0BCB 15850 
0BCC 15860 
0CCE 17870 
0BEA 16040 
00F4 21370 
04C0 01410 
054D 03530 
021 B 00080 
04C2 01430 
0FF4 01720 
0AA8 13430 
0206 00670 
0817 09130 



000A 02900 
0FB4 23710 
0FB6 23720 
00F0 21320 
0E8E 21980 
0EE0 22410 
0E3D 21420 
0FF3 24160 
43D9 02840 
0F2A 22790 
00F0 21330 
000E 00390 

0A84 13270 
0A82 13260 
006A 00460 



0F09 22630 



B00T4 00160 00780 01970 02030 



KIDVR 

BOOT 4 

FDCDVR 

BOOT 4 

B00T4 

CLOCKS 

DODVR 

DODVR 

$MAIN 

IODVR 

DODVR 

$MAIN 

DODVR 

DODVR 

CLOCKS 

FDCDVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

DODVR 

FDCDVR 



CLOCKS 

KIDVR 

DODVR 

BOOT 4 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

$MAIN 

FDCDVR 

B00T4 

$MAIN 

FDCDVR 

BOOT 4 

FDCDVR 

KIDVR 

KIDVR 

$MAIN 

$MAIN 

B00T4 

FDCDVR 



11240 
01960 
23610 
00380 
02350 
09290 
15350 
15410 
00810 
03290 
15380 
00720 
15360 
15740 
09410 
23180 
15720 
15830 
16350 
16970 
16990 
15670 
16060 
18960 
18360 
15790 
21820 



14390 



15610 18210 18240 
05330 



23200 
16090 



15780 15840 17570 17880 
16110 16840 17480 



21930 22350 23960 24020 



IODVR 03500 04910 



$MAIN 00670 



07290 
13770 
15620 
02380 
23310 
23750 
22750 
21420 
22400 
01160 
21430 
02520 
01270 
21760 
00220 
22950 
13110 
13130 
00470 
00530 



07940 08290 08660 

14420 

18780 



01180 01210 01240 

02640 

01300 01330 01360 

21890 23510 23810 23860 23970 



00480 00490 00500 00510 00520 
00540 00550 00560 00570 



22590 
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BOOT 4 

FDCDVR 

BOOT 4 

DODVR 

B00T4 

KIDVR 

FDCDVR 

BOOT 4 

CLOCKS 

MULDIV 

MULDIV 

$MAIN 

KIDVR 

KIDVR 

CLOCKS 

IODVR 

CLOCKS 

$MAIN 

$MAIN 

BOOT 4 

$MAIN 

DODVR 

IODVR 

FDCDVR 

$main 

$MAIN 

KIDVR 

CLOCKS 

KIDVR 

CLOCKS 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

CLOCKS 

CLOCKS 

CLOCKS 

CLOCKS 

CLOCKS 

B00T4 

KIDVR 

$MAIN 



KIDVR 
KIDVR 



GETADR 

GETCMD 

GETEXT 

GETja_ROWCOL 

GOTERR 

GOTSHFT 

GRABNDO 

HALTS 

HERTZ$ 

HEX DEC 1 

HEX DEC 2 

HIGH$ 

HIT 

HITWS 

HLSAV 

HOME 

HXD1 

IFLAG$ 

INBUF$ 

INITCRTC 

INTVC$ 

INVIDEO 

IOBGN 

IORQST 

JCLCB$ 

JLDCB$ 

KB0 

KB1 

KB6 

KB 7 

KBROW0 

KBR0W4 

KBR0W6 

KBTBL 

KCK1 

KCK1A 

KCK1B 

KCK2 

KCK(<> 

KEYIN 

KEYOK 

KFLAG$ 



KIBGN 
KIDATA$ 



$MAIN KIDCB$ 



KIDVR 


KIDVR 


KIDVR 


KIHOOK 


KIDVR 


KILAST 


KIDVR 


KISCAN 


$MAIN 


L BANKS 


BOOT 4 


LBOOT 


KIDVR 


LF 



0288 00610 
0F3C 22930 
02B1 00950 
0DAE 19620 
4385 02350 
0A6B 13120 
0F79 23280 
4394 02410 
0750 07470 
06 FA 06860 
0700 06910 
040E 01050 
0ACC 13650 
0ACA 13640 
086B 09710 
001C 02980 
07 CB 08440 
0072 00490 
0420 01100 
02DD 01300 
003 E 00450 
0DCB 19870 
0648 05360 
0F44 23000 
0203 00660 
0230 00830 

F401 10690 
F401 08570 
F440 10700 
F440 08650 
0004 10840 
0008 10860 
000A 10880 
0908 10930 
07F5 08920 
07FC 08950 
0805 08990 
0815 09070 
07D6 08660 
0040 00060 
0A89 13300 
0074 00500 



0923 11060 
08FC 10780 

0208 00680 



08F0 10730 
0B39 14490 
0B87 15170 
0983 11690 
0202 00650 

0238 00160 
000A 10670 



BOOT 4 
FDCDVR 
BOOT 4 
DODVR 



FDCDVR 
B00T4 

MULDIV 
MULDIV 

KIDVR 

KIDVR 

CLOCKS 

IODVR 

CLOCKS 



B00T4 

DODVR 

IODVR 

FDCDVR 

IODVR 

$MAIN 

IODVR 

KIDVR 

CLOCKS 

CLOCKS 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

CLOCKS 

CLOCKS 

CLOCKS 

CLOCKS 



KIDVR 

IODVR 

CLOCKS 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

$MAIN 

IODVR 

KIDVR 

$MAIN 

KIDVR 

KIDVR 

IODVR 

CLOCKS 

B00T4 

KIDVR 



00440 00520 
22910 

00330 00880 
19060 



23060 23090 23220 
02410 

06880 
07010 

13520 
13550 

09150 09470 
03490 
08420 



01920 

17430 18500 
05190 05300 
22030 
05250 
00850 

03070 03160 
11710 13920 
08790 

08950 

11700 

13160 

12560 13000 

12800 

08780 

08860 08880 

08940 08970 

09010 09020 09050 



13150 
03620 
08670 
11300 
10730 
10800 
11700 
00780 
03730 
10760 
00690 



13170 13280 

12440 12960 13220 14820 14970 
10820 10840 10860 10880 11690 

05270 



10740 

14310 14490 

05430 

10020 10480 10520 

02200 

10950 
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DODVR 


LINESIZ 


0050 15250 


DODVR 
DODVR 


15270 15280 16660 17930 
20270 


DODVR 


LINFEED 


0D02 18300 


DODVR 


16910 


B00T4 


LOAD 


0268 00410 


B00T4 


00360 00490 00570 


BOOT 4 


LOAD1 


0271 00450 


B00T4 


00480 


BOOT 4 


L0AD2 


027A 00510 


B00T4 


00430 


B00T4 


L0AD3 


0281 00550 


B00T4 


00560 


IODVR 


LOGBUF 


051 D 03200 


IODVR 


03120 


$MAIN 


MAXDAY$ 


0401 01030 


CLOCKS 


07680 


BOOT 4 


MLTCA 


02D3 01200 


BOOT 4 


01240 


BOOT 4 


MLTCA1 


02D9 01240 


BOOT 4 


01220 


$MAIN 


MODOUTS 


0076 00510 


DODVR 


16320 16480 16770 17630 


$MAIN 


MONTBL$ 


04DC 01480 






DODVR 


MOVCRS 


0C33 16670 


DODVR 


16610 


DODVR 


MOVLIN 


0D98 19430 


DODVR 


19410 


BOOT 4 


MULTCA 


02CE 01160 


BOOT 4 


01040 01090 


DODVR 


NEGLINE 


FFB0 15270 


DODVR 


16600 


$MAIN 


NFLAG$ 


0077 00520 


DODVR 


18820 


BOOT 4 


NMIRET 


43CD 02760 


B00T4 


01740 


BOOT 4 


NMIVECT 


0066 00070 


BOOT 4 


01750 01770 


IODVR 


NOBRK 


0575 03790 


IODVR 


03640 


KIDVR 


NOCHAR 


09B5 11940 KIDVR 


11640 11880 13380 


KIDVR 


NOKEY 


0A88 13290 KIDVR 


12020 13250 


FDCDVR 


NOPCMP 


0ECB 22310 FDCDVR 


22260 22290 


CLOCKS 


NOSOLID 


072F 07290 CLOCKS 


07270 


B00T4 


NOSYS 


43EA 02890 


B00T4 


02370 02900 


KIDVR 


NOTALPH 


0A67 13100 KIDVR 


13010 


B00T4 


NOTDBL 


0255 00270 


BOOT 4 


00250 


BOOT 4 


NOTSYS 


4389 02370 


BOOT 4 


02100 


DODVR 


NUNROWS 


0018 15260 


DODVR 


15280 


$MAIN 


OPREG$ 


0078 00530 


B00T4 
CLOCKS 


01680 

09350 09580 10430 10460 


CLOCKS 


OPREG SV AREA 


086E 09740 CLOCKS 


08930 09320 


CLOCKS 


OPREG_SV_PTR 


0835 09330 CLOCKS 


08920 09510 09570 








DODVR 


17320 


$MAIN 


PAKNAM$ 


0410 01060 






FDCDVR 


PASSCMD 


0F23 22750 FDCDVR 


22960 


$MAIN 


PAUSED 


0382 00970 


IODVR 
KIDVR 
PRDVR 
FDCDVR 


03700 
13320 
20780 
22430 24130 


CLOCKS 


PCSAVE$ 


07AF 08210 


CLOCKS 


08270 


$MAIN 


PDRV$ 


001 B 00400 FDCDVR 


21920 22360 22850 


DODVR 


PERR 


0DED 20160 CLOCKS 


09900 10010 10270 








DODVR 


19530 19980 20010 


CLOCKS 


PERRX 


088F 10010 CLOCKS 


10330 


PRDVR 


PRBGN 


0E0D 20530 


PRDVR 


20450 


$MAIN 


PRDCB$ 


0218 00740 


IODVR 
PRDVR 


03240 05310 
20480 


PRDVR 


PRDVR 


0E01 20450 $MAIN 


00750 


PRDVR 


PREND 


0E3C 21200 


PRDVR 


20460 


PRDVR 


PRPORT 


00F8 20390 PRDVR 


21070 21160 


DODVR 


PUTA0DE 


0DCD 19890 


DODVR 


19770 


DODVR 


PUT @ 


0DCA 19860 


DODVR 


16430 17720 


DODVR 


PUT (3 ROWCOL 


0DC6 19830 


DODVR 


19080 


PRDVR 


PVAL3 


0E33 21070 






KIDVR 


R7KFLG 


0B6A 14820 


KIDVR 


14220 


DODVR 


RAMSIZE 


0800 15290 






B00T4 


RDB1 


02AA 00870 


BOOT 4 


00840 
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B00T4 


RDB2 


02AE 00890 B00T4 


00750 




BOOT 4 


RDBOOT 


432D 01860 B00T4 


01910 




B00T4 


RDBYTE 


0297 00730 B00T4 


00410 00450 00530 00550 00610 






B00T4 


00660 




FDCDVR 


RDIN 


0E69 21720 FDCDVR 


23080 




FDCDVR 


RDIN1 


0E72 21760 FDCDVR 


21780 




FDCDVR 


RDIN2 


0E7B 21820 FDCDVR 


21850 




B00T4 


RDS1 


4379 02270 B00T4 


02340 




B00T4 


RDSECT 


4374 02250 B00T4 


02000 02070 




BOOT 4 


RDSEQ 


4377 02260 B00T4 


01860 




BOOT 4 


READ 


4396 02430 B00T4 


02290 




B00T4 


READLP1 


43BD 02670 B00T4 


02690 




BOOT 4 


READLP2 


43C5 02720 B00T4 


02740 




FDCDVR 


RESTOR 


0EA8 22120 FDCDVR 


21510 




FDCDVR 


RETRY 


0F87 23410 FDCDVR 


23580 23670 




$MAIN 


RFLAG$ 


007B 00540 FDCDVR 


23010 




DODVR 


ROWCOL 2 ADDR 


0DD0 19950 DODVR 


16190 18690 19360 19630 


19840 


KIDVR 


RPTINIT 


0002 10800 KIDVR 


11920 13340 




KIDVR 


RPTRATE 


0003 10820 KIDVR 


12710 14680 14710 




IODVR 


RSTBNK 


0679 05700 IODVR 


05580 




$MAIN 


RSTOR$ 


04C4 01450 






FDCDVR 


RWINIT 


0F2B 22830 FDCDVR 


21740 23790 




$MAIN 


S1DCB$ 


0238 00840 






DODVR 


SCRPROT 


0007 15420 DODVR 


17890 




FDCDVR 


SDEN 


0E5C 21600 FDCDVR 


21580 




FDCDVR 


SECREG 


00F2 21350 FDCDVR 


22630 




BOOT 4 


SECTRK 


02A5 00830 B00T4 


00270 




B00T4 


SEEK1 


43A3 02530 B00T4 


02550 




FDCDVR 


SEEKTRK 


0EE8 22490 FDCDVR 


22050 23450 




FDCDVR 


SELECT 


0EB0 22160 FDCDVR 


22070 22710 




DODVR 


SET40 


0C3D 16770 DODVR 


17050 




DODVR 


SETMASK 


0CFD 18240 DODVR 


17580 




DODVR 


SETMOD 


0CB2 17650 DODVR 


16340 16790 




FDCDVR 


SETSECT 


0F08 22620 FDCDVR 


22570 




DODVR 


SET SCROLL 


0CF3 18170 DODVR 


19190 




$MAIN 


SFLAG$ 


007C 00550 IODVR 
CLOCKS 
KIDVR 


04010 
09030 
12930 




KIDVR 


SHIFT 


F480 10710 CLOCKS 
KIDVR 


08680 
12350 




CLOCKS 


SHIFT 


F480 08550 






$main 


SIDCB$ 


0220 00770 






$MAIN 


SODCB$ 


0228 00800 






KIDVR 


SPCLLP 


0AB7 13510 KIDVR 


13590 




KIDVR 


SPCLTB 


091E 11020 KIDVR 


13460 




KIDVR 


SPECL 


0AAB 13450 KIDVR 


13410 




CLOCKS 


SPSAV 


0863 09650 CLOCKS 


09260 




$MAIN 


STACKS 


0380 00960 $MAIN 
CLOCKS 


00970 
09270 




$MAIN 


STARTS 


0000 00350 $MAIN 
BOOT 4 

$MAIN 


00590 
01830 
01730 01760 




FDCDVR 


STEP IN 


0F1A 22710 FDCDVR 


22110 22140 22680 




FDCDVR 


SWDEN 


0E45 21480 FDCDVR 


23640 




DODVR 


TABS 


0003 15430 DODVR 


15780 




DODVR 


TGGLALT 


0CAD 17620 DODVR 


17030 




DODVR 


TGGLCTL 


0C9F 17480 DODVR 


15700 




DODVR 


TGGLTAB 


0CA6 17550 DODVR 


17010 




KIDVR 


TGLCASE 


0A3E 12900 KIDVR 


12590 12620 
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$MAIN 

CLOCKS 

CLOCKS 

CLOCKS 

$MAIN 

CLOCKS 

CLOCKS 

$MAIN 

CLOCKS 

$MAIN 

CLOCKS 

FDCDVR 

FDCDVR 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

KIDVR 

DODVR 

FDCDVR 

FDCDVR 

$MAIN 

DODVR 

DODVR 

DODVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

$MAIN 



TIMES 
TIME1 
TIME2 
TIME3 
TIMERS 

TIMER1 

TIMETBL 

TIMSL$ 

TIMTSK$ 

TMPMT$ 

TRACE J NT 

TRKREG 

TSTBSY 

TSTSPA 

TYPAHD 

TYPBUF 

TYPHK$ 

TYPON 

TYPTSK$ 

VDCTL 

VERFIN 

VERFY 

VFLAG$ 

VIDLIN 

VIDMOV1 

VIDMOVE 

WRCMD 

WRCMD1 

WRNMIPORT 

WROl 

WR02 

WR03 

WROUT 

ZEROS 



002 D 00430 
0792 07980 
0794 07990 
0797 08010 
002 C 00420 

0761 07560 
070F 07120 
002 B 00410 
0713 07130 
04C3 01440 
07B1 08250 
00F1 21340 
0E82 21890 
0A6F 13140 
0AD5 13760 
FF80 15100 
0A8F 13320 
0B23 14330 
0B26 14380 
0D61 19010 
0E63 21660 
0F58 23090 
007F 00560 

0D8B 19340 
0DA7 19550 
0D9F 19500 
0F5E 23120 
0F67 23160 
00E4 21310 
0FC1 23810 
0FE2 24020 
0FD7 23950 
0FBC 23790 
0401 01020 



CLOCKS 

CLOCKS 

CLOCKS 

CLOCKS 

$MAIN 

KIDVR 

CLOCKS 

CLOCKS 



FDCDVR 
FDCDVR 

KIDVR 
KIDVR 



DODVR 

FDCDVR 

FDCDVR 

CLOCKS 

DODVR 

DODVR 

DODVR 

DODVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 

FDCDVR 



07540 07960 

08190 

08130 

08030 

00430 

11890 12700 13330 14670 

07630 

07390 07550 



22510 22840 

21940 22020 22160 22490 23460 



11130 
13780 14430 



KIDVR 13810 13870 



18840 18920 

23110 

23050 

07160 

15920 15940 19700 

19030 

19150 

19170 

23030 

23130 

23900 24110 

23830 

24040 

23990 

23240 



00340 Symbols declared - 00541 References 
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SYSRES - Resident portion of the DOS 

This source code assembles the load module file SYS0/SYS, commonly referred to as 
Sysres. It contains the BDOS and other routines. It is origined at 1300H, which puts 
it above Lowcore and the low memory driver zone. It is loaded into position by the 
boot loader in Lowcore. Once loaded, execution is begun at the SYSINIT entry point. 
This initializes the remaining machine hardware, loads the configuration file if 
present, executes any Auto command, and brings in the command interpreter. The main 
subsections of Sysres are: 

Certain low memory values and the system flag table. 

FILPOSN - File read/write, positioning, and allocation routines. 

LOADER - SVC handling, overlay loading, command file loading. 

TASKER - Interrupt processing. 

SYSINIT - System initialization after cold or warm boot. 

SOUND - Sound, Pause, and some other miscellaneous low memory routines. 

LOGO - The signon graphics display in direct load to screen format. 

A cross reference listing of non-local labels follows the assembly listing. 
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SYSTEM Fil 


es SYSRES - LS-DOS 6.2 Page 00001 




00100 ;SYSRES/ASM - LS-DOS 6.2 


0000 


00110 


TITLE <SYSRES - LS-DOS 6.2> 


000A 


00120 LF 


EQU 10 


000 D 


00130 CR 
00140 ; 


EQU 13 




00150 *LIST 


OFF ;Xref of Lowcore 




00170 *LIST 


ON 


0000 


00180 *GET 


COPYCOM: 3 ; Embed copyright notice 




01300 ; COPYCOM - File for Copyright COMment block 




01310 ; 




0000 


01320 
01330 ; 
00190 ; 


COM '<*(C) 1982,83,84 by LSI*>' 


0000 


00200 
00210 ; 


SUBTTL <' System low core assignments^ 




00220 ; 


LDOS 6.2 Low Core RAM storage assignments 




00230 ; 


Copyright (C) 1982 by Logical Systems, Inc. 




00240 ; 




0000 


00250 STARTS 


EQU 


0000 


00260 


ORG 0+START$ 



0000 


00260 


ORG 


0+STARTS 






00270 ; 










00280 ; 


Page 


- RST's, data, a 


nd buffers 




00290 ; 








0000 F3 


00300 0RST00 


DI 




; IPL Entry for R/S 4-P 


0001 3E01 


00310 


LD 


A, 00000001 B 


;Set image in A 


0003 D39C 


00320 


OUT 


(9CH),A 


; toggle in BOOT/ROM 


0005 00 


00330 


DB 


0,0,0 


;CP/M emulator SVC 


00 00 










0008 C9 


00340 (9RST08 


RET 






0009 0000 


00350 


DW 







000 B 0000 


00360 SVCRETS 


DW 





;Return address from SVC 


000 D 00 


00370 LSVC$ 


DB 





;Last SVC executed 


000E F3 


00380 FDDINTS 


DI 




;NOP or DI (F3H) for 


000F C9 


00390 


RET 




; System (Smooth) 


0010 C9 


00400 0RST10 


RET 






0011 0000 


00410 


DW 







0005 


00420 USTORS 


DS 


5 


;User storage area 


0018 C9 


00430 (3RST18 


RET 






0019 0000 


00440 


DW 







001 B 01 


00450 PDRV$ 


DB 


1 


;Current drive, physical 


001C 0000 


00460 PHIGH$ 


DW 





;Physical HIGHS 


001 E 0030 


00470 L0W$ 


DW 


3000 H 


; Lowest usable memory 


0020 C9 


00480 @RST20 


RET 






0021 0000 


00490 


DW 







0023 00 


00500 LDRV$ 


DB 





;Current drive, logical 


0024 0000 


00510 JDCB$ 


DW 





; Saved FCB pointer 


0026 0000 


00520 JRET$ 


DW 





;Saved I/O return address 


0028 C35B1A 


00530 @RST28 


JP 


RST28 


;System SVC processor 


002B 55 


00540 TIMSL$ 


DB 


55H 


;Fast=55, slow=FF 


002C 00 


00550 TIMERS 


DB 





;RTC counter 


002 D 00 


00560 TIMES 


DC 


3,0 


;SS:MM:HH storage area 


00 00 










0030 C3A019 


00570 (3RST30 


JP 


(9DEBUG 


;DEBUG call address 


0005 


00580 DATES 


DS 


5 


;YY/DD/MM/packed 


0038 C3FF1B 


00590 (3RST38 


JP 


RST38I3 


; Interrupt RST 


003 B 00 


00600 OSRLSS 
00610 ; 


DB 


00 H 


;OS Release # 




00620 ; 


INTIMS 


stores the image 


read from RDINTSTATUS* 




00630 ; 








003 C 00 


00640 INTIMS 
00650 ; 


DB 





; Interrupt latch image 
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INTMSK$ masks the image read from RDINTSTATUS* 
LDOS 6.x permits only RS-232 RCV INT, IOBUS INT, 
and RTC INT to be used by the TASKER off of RST38 



;Mask for INTIM$ 



00660 ; 

00670 ; 

00680 ; 

00690 ; 

003 D 2C 00700 INTMSK$ DB 2CH 

00710 ; 

00720 ; INTVC$ stores the eight vectors associated 

00730 ; with the INTIM$ bit assignments 

00740 ; 

003E 481C 00750 INTVC$ DW RETINST ;Primary interrupts 
0040 481C 00760 DW 

941C 481C 
0046 481C 00770 DW 
481C 481C 481C 



RETINST, RTCPROC, RETINST 
RETINST, RETINST, RETINST, RETINST 



0018 



0069 00 



006A 



006A 01 
006 B 00 



006C 00 



00780 
00790 



00810 TCB$ 

00820 

00830 

00840 

00850 @NMI 

00860 

00870 ; 

00880 ; 

00890 0VRLY$ DB 



TCB$ stores the TCB vectors for task slots 0-11 
DS 24 ; Interrupt task vectors 

NMI vector used in disk I/O 
DS 3 ;Don't overlay this 

0VRLY$ stores the system's overlay request # 

;Current overlay resident 



FLGTAB$ stores 26 flags and images. A pointer 
to this table is obtained from SVC-@FLAGS 



00910 ; 

00920 ; 

00930 ; 

00940 FLGTAB$ EQU $ 

00950 ; 

00960 ; 

00970 ; AFLAG$ - Start CYL for Allocation search 



00990 AFLAG$ DB 

01000 DB 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 

01110 

01120 CFLAG$ DB 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 



01 




;AFLAG 
;BFLAG 



CFLAG$ assignments: 

- Cannot change HIGH$ via SVC-100 

1 - @CMNDR in execution 

2 - @KEYIN request from SYS1 

3 - System request for drivers, filters, DCTs 

4 - @CMNDR to only execute LIB commands 

5 - Sysgen inhibit bit 

6 - 0ERROR inhibit display 

7 - TERROR to use user (DE) buffer 



;Condition flag 



DFLAG$ assignments: 

- SPOOL is active 

1 - TYPE ahead is active 

2 - VERIFY is on 

3 - SMOOTH active 

4 - MemDISK active 

5 - FORMS active 

6 - KSM active 

7 - accept GRAPHICS in screen print 
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006 D 0A 



006 E 00 

006F 00 

0070 00 

00 



0072 



0072 00 

0073 00 



0074 00 



0075 31 



01230 ; 

01240 DFLAG$ 

01250 ; 

01260 ; 

01270 ; 

01280 ; 

01290 ; 

01300 ; 

01310 ; 

01320 ; 

01330 EFLA6$ 

01340 FEMSK$ 
01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 IFLAG$ 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 ; 

01590 ; 

01600 ; 

01610 ; 

01620 ; 

01630 ; 

01640 ; 

01650 ; 

01660 ; 

01670 ; 

01680 ; 

01690 KFLAG$ 

01700 

01710 

01720 

01730 

01740 

01750 

01760 ; 

01770 LFLAG$ 

01780 

01790 

01800 



DB 



00001010B 



;DEV Flag (SMOOTH, TYPE) 



EFLAG$ - Assignments: (sysl3 usage) 

use only bits 4 9 5 and 6 to indicate user 

entry code to be passed to SYS13. SYS13 

will be executed from SYS1 if this byte 

is NON/0, bit 4, 5 and 6 will be merged into 

the SYS13 (1000,1111b) overlay request 



DB 
DB 
DC 




2,! 



;Flag E 
;Port FE mask 
;Flags G-H 



IFLAG$ - Assignments: (INTERNATIONAL) 

- FRENCH 

1 - GERMAN 

2 - SWISS 

3 - 

4 - 

5 - 

6 - Special DMP mode ON/OFF 

7 - '7' bit mode ON/OFF 



EQU 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

DB 



$ 

^FRENCH 
01000001 B 

^GERMAN 
01000010B 

@USA 







;Flag J 



KFLAG$ assignments: 

- BREAK latch 

1 - PAUSE latch 

2 - ENTER latch 

3 - reserved 

4 - reserved 

5 - CAPs lock 

6 - reserved 

7 - character in TYPE ahead 



DB 







;Keyboard flag 



LFLAG$ assignments: 
- inhibit step rate question in FORMAT 

4 - inhibit 8" query in FLOPPY/DCT 

5 - inhibit # sides question in FORMAT 
6,7 - Reserved for IM 2 hardware 



DB 



001100011 



;LD0S feature inhibit 



M0D0UT$ mask assignments: 
- 
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0076 78 



0077 



System low core assignments 



01810 ; 1 

01820 ; 2 

01830 ; 3 

01840 ; 4 

01850 ; 5 

01860 ; 6 

01870 ; 7 

01880 ; 

01890 IF 

01900 MODOUT$ DB 

01910 ELSE 

01920 MODOUT$ DB 

01930 ENDIF 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 DB 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 OPREG$ DB 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 RFLAG$ DB 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 SFLAG$ DB 

02380 

02390 



cassette motor on/off 

mode select (0 = 80/64, 1 = 40/32) 

enable alternate character set 

enable external I/O 

video wait states (0 = disable, 1 = enable) 

clock speed (1=4 Mhz, 0=2 MHz) 



@INTL 
70H 

78 H 



;M0D0UT international 
;M0D0UT port image (FAST) 



0078 87 



0079 00 
007A 00 



007 B 08 



007 C 08 



NFLAG$ - Network flag$ 

- Allow setting of file open bit in DIR 

1 / 5 - Reserved 

6 - Set if in Task Processor 

7 - Reserved 







; Inhi bit open bit in DIR 



0PREG$ memory management image port 

- SEL0 - Select map overlay bit 

1 - SEL1 - Select map overlay bit 1 

2 - 80/64 - 1 = 80 x 24 

3 - Inverse video 

4 - MBIT0 - memory map bit 

5 - MBIT1 - memory map bit 1 

6 - FXUPMEM - fix upper memory 

7 - PAGE - page IK video RAM (set for 80x24) 



87 H 



;Memory management image 



PFLAG$ - Printer flag 

7 = Printer spooler is paused 

- 6 = Reserved 

DB 

DB ;QFLAG$ 

RFLAG$ - Retry init for FDC driver 



08 



;FDC retry count >=2 



SFLAG$ assignments: 

- inhibit fi le open bit 

1 - set to 1 if bit-2 set & EXEC file opened 

2 - set by @RUN to permit load of EXEC file 

3 - SYSTEM (FAST) 

4 - BREAK key disabled 

5 - JCL active 

6 - force extended error messages 

7 - DEBUG to be turned on after load 



;System flag (FAST) 
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007 D 04 



007 E 00 



007F 00 



0080 04 

0081 00 



0084 01 



0085 62 



0086 C9 

0087 0000 



0089 C9 
008A 0000 



008C 80 



02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 



Machine TYPE assignment: 

All values are in decimal 

2 = TRS-80 Model 2 

4 = TRS-80 Model 4 

5 = TRS-80 MODEL 4P 
12 = TRS-80 Model 12 
16 = TRS-80 Model 16 



02500 TFLAG$ DB 

02510 ELSE 

02520 ERR 

02530 ENDIF 

02540 DB 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 VFLAG$ DB 

02640 



IF @M0D4 

04 ;Model 4 assignment 

'Undefined machine TYPE for TFLAG' 

;Flag U 

Video FLAGS assignments: 
0-3 - Set blink rate (l=fastest,7=slowest) 

4 - display CLOCK 

5 - cursor blink toggle bit 

6 - Inhibit blinking cursor (user) 

7 - Inhibit blinking cursor (system) 



;Blink,Slow,No clock 



02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 WRINT$ DB 



WRINT$ - interrupt mask register 

- enable 1500 baud rising edge 

1 - enable 1500 baud falling edge 

2 - enable real time clock 

3 - enable I/O bus interrupts 

4 - enable RS-232 transmit interrupts 

5 - enable RS-232 receive data interrupts 

6 - enable RS-232 error interrupt 



02750 



DC 



4 
3,0 



;WRINTMASK port image 
;Flags X-Z 



02760 

02770 

02780 

02790 

02800 ; 

02810 ; 

02820 ; 

02830 0SVER$ DB 



Contents are high-order byte of SVC table 

DB SVCTAB$<-8 ;MSB of SVC table 

0SVER$ stores the operating system version 

62H ;0S version # 

02850 ; Vector for config initialization 

02860 ; 

02870 (3ICNFG RET ; Initialization config 

02880 DW 

02890 ; 

02900 ; Chain vector for KI task processor 

02910 ; 

02920 @KITSK RET 

02930 DW 

02940 ; 

02950 ; System File Control Block for overlays 

02960 ; 

02970 SFCB$ 



;Keyboard task routine 



DB 



80H,0,0 



; System /SYS FCB 
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008F 001 D 

0091 00 

0092 0000 



0020 



00C0 00 

00 00 
00C3 001D 
001 B 



00E0 

00E0 43 

4F 4E 
53 2E 

000F 



0100 



02980 
02990 



2400 
3000 
1300 



1300 



FFFF 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 



03090 
03100 
03110 
03120 
03130 
03140 
03150 
46 49 47 
43 43 43 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 



DW 

DB 

DW 

FFFF FFFF 



SBUFF$ 



0,0,0,-1,0,-1,-1 



32-byte DEBUG save area 

DBGSV$ DS 32 

» 

; Job Control Language File Control Block 

JFCB$ DC 3,0 



DW 
DS 



SBUFF$ 
27 



System Command Line file control block 

CFCB$ EQU $ ;Command Interpreter FCB 

CFGFCB$ DB 'CONFIG/SYS. CCC:0' ,3 
2F 53 59 
3A 30 03 

DS 15 

Page 1 - System Supervisor Call Table 

SVCTAB$ EQU $ 

IFNE $,100H 

ERR 'SVCTBL location violation' 

ENDIF 

Initial version 

MAXC0R$ EQU 2400H+START$ 
MINC0R$ EQU 3000H+START$ 
ORG @BYTEI0 

file positioning routines - MUST BE FIRST 

SUBTTL ' <Fi le positioning subroutines>' 
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1300 


03350 


*GET 


FILP0SN:3 






01340 


;FILPOSN/ASM - 


• LS-DOS 6.2 






01350 


» 










01360 


» 


Entry 


for byte I/O from @GET & @PUT 




01370 


» 








1300 DDE5 


01380 


BYTE 10 


PUSH 


IX 




1302 Dl 


01390 




POP 


DE 


.Transfer DCB to DE 


1303 CD6815 


01400 




CALL 


CKOPEN0 


Ck file open, save regs 


1306 DDCB01FE 


01410 




SET 


7.UX+1) 


.Denote byte or LRec 


130A 78 


01420 




LD 


A,B 


.Get type code & test 


130B FE02 


01430 




CP 


2 


;For get/put 


130D 79 


01440 




LD 


A,C 




130E 281F 


01450 




JR 


Z, WRCHAR 


,Go on PUT 


1310 3058 


01460 
01470 


j 


JR 


NC,IORETZ 


.Ignore if CTL 




01480 


s 


Get a 


byte from a file 






01490 


9 








1312 CD9215 


01500 RDCHAR 


CALL 


CKE0F1 


;Ck for end of file 


1315 C0 


01510 




RET 


NZ 


; Return if at end 


1316 DDCB016E 01520 




BIT 


5,(IX+1) 


;If buffer not current, 


131A C47913 


01530 




CALL 


NZ,NSEC1 


; read next sector 


131D C0 


01540 




RET 


NZ 




131E CD1314 


01550 




CALL 


BFRPOS 


;Pt to byte posn in bfr 


1321 1A 


01560 




LD 


A,(DE) 


;P/u the byte 


1322 DD3405 


01570 




INC 


(IX+5) 


;Inc NEXT ptr 


1325 CC2A13 


01580 




CALL 


Z,SET5 


;Set bit 5 if zero 


1328 BF 


01590 




CP 


A 


;Set Z flag— no error 


1329 C9 


01600 
01610 


» 


RET 






132A DDCB01EE 


01620 


SET5 


SET 


5,(IX+1) 




132E C9 


01630 
01640 


s 


RET 








01650 


» 


Write 


a byte to a file 






01660 


» 








132F DDCB0076 01670 WRCHAR 


BIT 


6,(IX+0) 


;Prot level give write ace? 


1333 CAC613 


01680 




JP 


Z,RWRIT3 


; go if not 


1336 F5 


01690 




PUSH 


AF 


;Save byte 


1337 DDCB016E 01700 




BIT 


5,(IX+1) 


;Get next sector if 


133B C46C13 


01710 




CALL 


NZ,WRCH2 


; buffer is not current 


133E 2803 


01720 




JR 


Z,WRCH1 


;Skip if read was ok 


1340 E3 


01730 




EX 


(SP),HL 


;Pop stack but keep 


1341 El 


01740 




POP 


HL 


; error # in AF 


1342 C9 


01750 
01760 


» 


RET 






1343 CD1314 


01770 


WRCH1 


CALL 


BFRPOS 


;Next bfr byte posn 


1346 Fl 


01780 




POP 


AF 




1347 12 


01790 




LD 


(DE),A 


; Stuff the byte 


1348 DDCB01E6 01800 




SET 


4,(IX+1) 


;Buffer contains updated data 


134C DD3405 


01810 




INC 


(IX+5) 


;Inc NEXT byte 


134F F5 


01820 




PUSH 


AF 


;Save Z or NZ flag 


1350 CC2A13 


01830 




CALL 


Z S SET5 


;Set bit 5 if offset 


1353 CD9215 


01840 




CALL 


CKE0F1 


;Check for EOF 


1356 2006 


01850 




JR 


NZ, ATEOFW 


;Go if there 


1358 DDCB0176 


01860 




BIT 


6,(IX+1) 


;Jump if EOF set to next 


135C 2009 


01870 




JR 


NZ, DNTSET 


; only if at EOF 


135E DD7108 


01880 ATEOFW 


LD 


(IX+8),C 


;Set EOF 


1361 DD750C 


01890 




LD 


(IX+12),L 




1364 DD740D 


01900 




LD 


(IX+13),H 




1367 Fl 


01910 


DNTSET 


POP 


AF 


;Restore offset flag 


1368 2846 


01920 




JR 


Z,RWRIT1 


;Go to write sector if 00 
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136A AF 


01930 


IORETZ 


XOR 


A 


;Set Z flag— no error 


136B C9 


01940 
01950 


» 


RET 








01960 


» 


WRCHR 


needs the next 


; sector - if UPDATE, ck EOF 




01970 


% 








136C DD7E01 


01980 WRCH2 


LD 


A, (IX+1) 


;Ck if UPD bit set 


136F E607 


01990 




AND 


7 


;Mask for prot level 


1371 FE04 


02000 




CP 


4 


;Check for UPD 


1373 2004 


02010 




JR 


NZ,NSEC1 


;Bypass EOF ck on > UPD 


1375 CD9215 


02020 


NXTSECT 


CALL 


CKEOF1 


;Ck for end of f i le 


1378 C0 


02030 




RET 


NZ 


;Can't extend in update mode 


1379 DD7E01 


02040 


NSEC1 


LD 


A, (IX+1) 


;Read access? 


137C E607 


02050 




AND 


7 




137E FE06 


02060 




CP 


6 




1380 3044 


02070 




JR 


NC.RWRIT3 


;" Illegal access..." if not 


1382 CDCB15 


02080 


NSEC2 


CALL 


IOREC 


;Calc cylinder/sector 


1385 C0 


02090 




RET 


NZ 




1386 DDCB01AE 


02100 




RES 


5, (IX+1) 


;Show buffer current 


138A DD6E03 


02110 




LD 


L s (IX+3) 


;P/u buffer address 


138D DD6604 


02120 




LD 


H,(IX+4) 




1390 CDF419 


02130 




CALL 


(9RDSEC 


;Read the sector 


1393 2803 


02140 




JR 


Z s BUMPNRN 


;Go if no error 


1395 FE06 


02150 




CP 


6 


;Test for prot sector 


1397 C0 


02160 




RET 


NZ 


;Quit if error not 6 


1398 DD340A 


02170 


BUMPNRN 


INC 


(IX+10) 


;Inc the NRN ptr LSB 


139B 2003 


02180 




JR 


NZ,ZEROA(? 




139D DD340B 


02190 




INC 


(IX+11) 


; and MSB if necessary 


13A0 AF 


02200 


ZEROA0 


XOR 


A 




13A1 C9 


02210 
02220 


s 


RET 








02230 


s 


Reposi 


tioning needs 


to write out the buffer 




02240 


» 








13A2 DD7E01 


02250 RWRIT0 


LD 


A, (IX+1) 




13A5 E690 


02260 




AND 


90H 


;Test for non-sector i/o and 


13A7 FE90 


02270 




CP 


90H 


; buffer contents changed 


13A9 2805 


02280 




JR 


Z,RWRIT1 


;Go if conditions true 


13AB 18F3 


02290 




JR 


ZEROA0 


; else no need to write 


13AD CD6815 


02300 (3RWRIT 


CALL 


CKOPEN0 


;Ck file open, save regs 


13B0 CD0C14 


02310 RWRIT1 


CALL 


GETNRN 


;P/u NRN 


13B3 7C 


02320 




LD 


A,H 


; Ignore if rewound 


13B4 B5 


02330 




OR 


L 




13B5 C8 


02340 




RET 


Z 




13B6 2B 


02350 




DEC 


HL 


;Dec & reset NRN 


13B7 DD750A 


02360 




LD 


(IX+10),L 




13BA DD740B 


02370 
02380 


) 


LD 


(IX+11), H 






02390 


» 


Check 


access protect 


ion level 




02400 


» 








13BD DD7E01 


02410 RWRIT2 


LD 


A, (IX+1) 


;Get prot 


13C0 E607 


02420 




AND 


7 




13C2 FE05 


02430 




CP 


5 


;Update access or better? 


13C4 3804 


02440 




JR 


C.RWRIT4 




13C6 3E25 


02450 RWRIT3 


LD 


A,25H 


; Illegal access error code 


13C8 B7 


02460 




OR 


A 


;Return NZ 


13C9 C9 


02470 
02480 


i 


RET 






13CA E604 


02490 RWRIT4 


AND 


4 


;If UPDATE access, then 


13CC 2805 


02500 




JR 


Z,RWRIT5 


; can't extend if at EOF 


13CE CD9215 


02510 




CALL 


CKEOF1 
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13D1 20F3 


02520 


JR 


NZ,RWRIT3 


; so show "Illegal access... 


13D3 CDCB15 


02530 RWRIT5 


CALL 


IOREC 


Calculate cylinder & sector 


13D6 C0 


02540 


RET 


NZ 




13D7 DD6E03 


02550 


LD 


L s (IX+3) 


;P/u buffer addr 


13 DA DD6604 


02560 


LD 


H 9 (IX+4) 




13DD DDCB01A6 02570 


RES 


4,(IX+1) 


;Altered buffer flag off 


13E1 DDCB00D6 02580 


SET 


2,(IX+0) 


;Show modification done 


13E5 CDE819 


02590 


CALL 


0WRSEC 


; for directory mod flag 


13E8 C0 


02600 


RET 


NZ 




13E9 3E00 


02610 VEROP 


LD 


A,0 


; Verify operation if set 


13EB B7 


02620 


OR 


A 




13EC C4DC19 


02630 


CALL 


NZ,@VRSEC 


;Verify if no write error 


13EF C0 


02640 


RET 


NZ 


;Return if wrt/ver error 


13F0 CD9813 


02650 
02660 ; 


CALL 


BUMPNRN 


; Increment NRN 




02670 ; 


Check 


if ERN to be 


set to NRN 




02680 ; 


Shouk 


i be done for 


byte i/o, but not random i/o 




02690 ; 








13F3 CD9215 


02700 


CALL 


CKEOF1 


;Returns if not at EOF 


13F6 3D 


02710 


DEC 


A 


;Set bit 6 if retcod=0 


13F7 DDA601 


02720 


AND 


(IX+1) 


;If IX+1, bit 6 set, then 


13FA E640 


02730 


AND 


40 H 


; don't update EOF unless at 


13FC 20A2 


02740 


JR 


NZ,ZEROA(a 


; or past the old EOF 


13FE DD750C 


02750 YESEOF 


LD 


(IX+12),L 


;Update ERN 


1401 DD740D 


02760 


LD 


(IX+13),H 




1404 DDCB015E 02770 


BIT 


3, (IX+1) 


;Test if ending ' ! ' 


1408 C2F214 


02780 


JP 


NZ s WEOFl 


;Upd dir if so 


140B C9 


02790 
02800 ; 


RET 






140C DD6E0A 


02810 GETNRN 


LD 


L,(IX+10) 


;Xfer NRN to HL 


140F DD660B 


02820 


LD 


H,(IX+11) 




1412 C9 


02830 
02840 ; 


RET 






1413 DD7E05 


02850 BFRPOS 


LD 


A,(IX+5) 


;P/u byte offset in buffer 


1416 DD8603 


02860 


ADD 


A,(IX+3) 


;Add to buffer lsb 


1419 5F 


02870 


LD 


E,A 




141A DD7E04 


02880 


LD 


A,(IX+4) 


; and adjust buffer MSB 


141D CE00 


02890 


ADC 


A,0 


; if needed 


141F 57 


02900 


LD 


D,A 


;Return DE = posn 


1420 C9 


02910 
02920 ; 


RET 








02930 ; 


Entry 


to seek next 


record of a file 




02940 ; 








1421 CD6815 


02950 0SEEKSC 


CALL 


CKOPEN0 


;Link to FCB & ck if open 


1424 CD9215 


02960 


CALL 


CKEOF1 


;Ensure not > EOF 


1427 CCCB15 


02970 


CALL 


Z, IOREC 


;Get track/sector data 


142A C0 


02980 


RET 


NZ 


;Back on I/O error 


142B CDD019 


02990 


CALL 


(PSEEK 


; Issue seek to drive 


142E AF 


03000 


XOR 


A 


; Ignore seek errors here 


142F C9 


03010 
03020 ; 


RET 








03030 ; 


Entry 


to Skip recor 


-d routine 




03040 ; 








1430 CDB314 


03050 @SKIP 


CALL 


0LOC 


;Locate next record 


1433 03 


03060 
03070 ; 


INC 


BC 


;Step past it 




03080 ; 


Entry 


to Position to record routine 




03090 ; 








1434 CD6815 


03100 @P0SN 


CALL 


CKOPENG* 
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1437 DDCB01F6 03110 




SET 


6,(IX+1) 


;Upd eof only if NRN>EOF 


143B DDCB017E 03120 




BIT 


7,(IX+1) 


;Jump if sector i/o only 


143F 281D 


03130 




JR 


Z,POSNl 




1441 60 


03140 




LD 


H,B 


; Record ptr to HL 


1442 69 


03150 




LD 


L,C 




1443 DDB609 


03160 




OR 


(IX+9) 


;P/u LRL 


1446 2816 


03170 




JR 


Z,POSNl 


;Skip nxt if LRL=256 


1448 CDC906 


03180 




CALL 


0MUL16 


;Calc sector & offset 


144B 44 


03190 




LD 


B S H 


; Physical sector =>BC 


144C 4D 


03200 




LD 


C,L 




144D DD7705 


03210 




LD 


(IX+5) S A 


;Set byte ptr 


1450 DDCB016E 03220 




BIT 


5,(IX+1) 


;Jump if buffer does not 


1454 200B 


03230 




JR 


NZ s POSN2 


; contain current sector 


1456 CD0C14 


03240 




CALL 


GETNRN 


;P/u the NRN 


1459 37 


03250 




SCF 






145A ED42 


03260 




SBC 


HL S BC 




145C 2812 


03270 




JR 


Z,$CKEOF 


;Pass on to CKEOF 


145E DD7705 


03280 


P0SN1 


LD 


(IX+5) S A 


; Off set in buffer 


1461 C5 


03290 


P0SN2 


PUSH 


BC 




1462 CDA213 


03300 


P0SN2A 


CALL 


RWRIT0 


;Write current if needed 


1465 CI 


03310 




POP 


BC 


; before moving 


1466 C0 


03320 




RET 


NZ 


;Back on write error 


1467 DD710A 


03330 




LD 


(IX+10) S C 


;NRN 


146A DD700B 


03340 




LD 


(IX+1D.B 




146D CD2A13 


03350 




CALL 


SET5 


;Show bfr does not 


1470 C39215 


03360 
03370 


$CKE0F 

s 


JP 


CKEOF1 


; contain current sector 




03380 


s 


Entry 


to force a physical read 




03390 


s 








1473 CD6815 


03400 @RREAD 


CALL 


CKOPEN0 




1476 0E01 


03410 




LD 


C,l 


;Cause ADJUST to bump 




03420 


s 






; NRN when called 


1478 CD0C14 


03430 


BKSP1 


CALL 


GETNRN 


;Get current record # 


147B 7C 


03440 




LD 


A S H 


;If file is rewound, 


147C B5 


03450 




OR 


L 


; then ignore the req 


147D 2815 


03460 




JR 


Z 9 BKSP0 


; & force OFFSET = 


147F 2B 


03470 




DEC 


HL 


;Back up by 1 


1480 CDBA15 


03480 
03490 
03500 




CALL 


ADJ2 


;RET if sector I/O only, 
; else bump fwd if RREAD 
; then back up if bit 5= 


1483 E5 


03510 




PUSH 


HL 


;Will be popped into BC 


1484 18DC 


03520 
03530 


s 


JR 


P0SN2A 


;Finish the job 




03540 


» 


Entry 


to backspace one 


logical record 




03550 


s 








1486 CD6815 


03560 0BKSP 


CALL 


CKOPEN0 




1489 4F 


03570 




LD 


C,A 


;Keep ADJUST from bumping 


148A DD4609 


03580 




LD 


B,(IX+9) 


;P/u LRL 


148D B0 


03590 




OR 


B 


;Is it a 


148E 28E8 


03600 




JR 


Z,BKSP1 


;Go if so 


1490 DD7E05 


03610 




LD 


A,(IX+5) 


;P/u next byte pointer 


1493 90 


03620 




SUB 


B 


;Sub one record length 


1494 DD7705 


03630 


BKSP0 


LD 


(IX+5),A 




1497 38DF 


03640 




JR 


CBKSP1 


;Go if crossed sec bdry 


1499 AF 


03650 




XOR 


A 


; else all done 


149A C9 


03660 
03670 


» 


RET 








03680 


» 


Entry 


to Rewind to beginning 




03690 


s 
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149B CD6815 


03700 @REW 


CALL 


CKOPEN0 




149E 47 


03710 


LD 


B 9 A 


;Zero NRN 


149F 4F 


03720 


LD 


C 5 A 




14A0 18BC 


03730 
03740 ; 


JR 


POSN1 


;Will also zero offset 




03750 ; 


Entry 


to Position to end-of-file 




03760 ; 








14A2 CD6815 


03770 @PE0F 


CALL 


CKOPEN0 




14A5 DD4E0C 


03780 


LD 


C,(IX+12) 


;ERN to BC 


14A8 DD460D 


03790 


LD 


B.dX+13) 




14AB DDB608 


03800 


OR 


(IX+8) 


;P/u EOF byte 


14AE 28AE 


03810 


JR 


Z 9 POSNl 


;Go if full sector 


14B0 0B 


03820 


DEC 


BC 


;Point to last rec 


14B1 18AB 


03830 
03840 ; 


JR 


POSN1 


;Use POSN to get end 




03850 ; 


Entry 


to Locate current 


record number 




03860 ; 








14B3 CD6815 


03870 @L0C 


CALL 


CKOPEN@ 




14B6 CD0C14 


03880 


CALL 


GETNRN 


;P/u NRN 


14B9 CDB715 


03890 


CALL 


ADJUST 


;Get offset and adj NRN 


14BC DD5E09 


03900 LOCI 


LD 


E,(IX+9) 


;P/u LRL 


14BF 7B 


03910 


LD 


A 9 E 


;Test LRL for zero 


14C0 B7 


03920 


OR 


A 


;If zero, then give NRN 


14C1 2816 


03930 


JR 


Z 9 L0C3 


;LRL=0 9 NRN is correct 


14C3 0C 


03940 


INC 


C 


;If offset is zero. 


14C4 0D 


03950 


DEC 


C 


; then it's at 256 , 


14C5 2801 


03960 


JR 


Z 9 LQC2 


; and we don't dec NRN 


14C7 2B 


03970 
03980 ; 


DEC 


HL 






03990 ; 


Divide 


i the three byte pointer (HLC) by the LRL 




04000 ; 








14C8 CDE306 


04010 L0C2 


CALL 


@DIV16 


;Divide (NRN-D/LRL 


14CB 45 


04020 


LD 


B 9 L 


;Save high order result 


14CC 54 


04030 


LD 


D S H 


;Save possible overflow 


14CD 67 


04040 


LD 


M 


;Prepare 2nd dividend 


14CE 69 


04050 


LD 


L 9 C 


;P/u low order dividend 


14CF 7B 


04060 


LD 


A 9 E 


;P/u LRL divisor again 


14D0 CDE306 


04070 


CALL 


GDIV16 




14D3 60 


04080 


LD 


H 9 B 


;Xfer high order result 


14D4 B7 


04090 


OR 


A 


;If remainder, we have a 


14D5 2801 


04100 


JR 


Z 9 $+3 


; partial record to round 


14 D7 23 


04110 


INC 


HL 


; up to next record # 


14 D8 7 A 


04120 


LD 


A 9 D 


;Xfer possible overflow 


14D9 CI 


04130 L0C3 


POP 


BC 


;Pop RESTREG return adr 


14DA E3 


04140 


EX 


(SP) 9 HL 


; Exchange value with BC 


14DB C5 


04150 
04160 ; 


PUSH 


BC 


;Restore RESTREG 




04170 


IF 


@M0D4 




14 DC 


04180 ORARETG 
04190 


' EQU 
ENDIF 


$ 




14DC B7 


04200 


OR 


A 




HDD C9 


04210 
04220 ; 


RET 








04230 ; 


Entry 


to Locate the end' 


-of-file record 




04240 ; 








14DE CD6815 


04250 @L0F 


CALL 


CKOPEN0 




14E1 DD6E0C 


04260 


LD 


L,(IX+12) 


;P/u ERN 


14E4 DD660D 


04270 


LD 


H.UX+13) 




14E7 DD4E08 


04280 


LD 


C,(IX+8) 


;EOF byte 
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14 EA 18 D0 


04290 
04300 ; 


JR 


LOCI 


Handle all LRLs 




04310 ; 


Entry 


to Write an end-of- 


■file mark 




04320 ; 








14EC CD6815 


04330 (9WE0F 


CALL 


CKOPEN0 




14EF CDA213 


04340 


CALL 


RWRIT@ ; 


Write buffer if needed 


14F2 DD4607 


04350 WE0F1 


LD 


B,(IX+7) ; 


P/u DEC of FPDE 


14F5 DD4E06 


04360 


LD 


C,(IX+6) 


P/u drive # 


14F8 CDBB18 


04370 


CALL 


(9DIRRD ; 


Read file's dir record 


14FB C0 


04380 


RET 


NZ 


Back if read error 


UK 2C 


04390 


INC 


L ; 


Pt to ERN offset 


14FD 2C 


04400 


INC 


L 




14FE 2C 


04410 


INC 


L 




14FF DD7E08 


04420 


LD 


A,(IX+8) 


P/u EOF offset 


1502 77 


04430 


LD 


(HL) S A ; 


Put in direc 


1503 111100 


04440 


LD 


DE S 17 ; 


Pt to EOF in dir 


1506 19 


04450 


ADD 


HL S DE 




1507 DD7E0C 


04460 


LD 


A,(IX+12) 


P/u lo EOF 


150A 77 


04470 


LD 


(HL) S A ; 


Put EOF in direc 


150B 23 


04480 


INC 


HL 




150C DD7E0D 


04490 


LD 


A,(IX+13) 


P/u hi EOF 


150F 77 


04500 


LD 


(HL),A 




1510 C30318 


04510 
04520 ; 


JP 


0DIRWR 


Write direc and return 




04530 ; 


Entry 


to Read a record 






04540 ; 








1513 CD6815 


04550 (BREAD 


CALL 


CKOPEN@ 




1516 E5 


04560 


PUSH 


HL 




1517 CDA213 


04570 


CALL 


RWRIT@ 


Write buffer if needed 


151A El 


04580 


POP 


HL 




151B C0 


04590 


RET 


NZ 


Back on write error 


151C DD4609 


04600 


LD 


B s (IX+9) 


P/u LRL 


151F 78 


04610 


LD 


A,B 


If LRL=256, just 


1520 B7 


04620 


OR 


A 




1521 CA7513 


04630 


JP 


Z,NXTSECT 


get the next sector 


1524 E5 


04640 RDREC 


PUSH 


HL 


Save buffer posn 


1525 C5 


04650 


PUSH 


BC 


.Save LRL 


1526 CD1213 


04660 


CALL 


RDCHAR 


Read next byte 


1529 CI 


04670 


POP 


BC 




152A El 


04680 


POP 


HL 




152B C0 


04690 


RET 


NZ 


Back on read error 


152C 77 


04700 


LD 


(HL),A 


Put char into buffer 


152D 23 


04710 


INC 


HL 


Bump buffer ptr 


152E 10F4 


04720 


DJNZ 


RDREC 


Loop for entire record 


1530 C9 


04730 
04740 ; 


RET 








04750 ; 


Entry 


to Write a record 






04760 ; 








1531 CD6815 


04770 GWRITE 


CALL 


CKOPEN0 




1534 32EA13 


04780 WRIT1 


LD 


(VEROP+D.A 


Turn on/off verify 


1537 DD4609 


04790 


LD 


B,(IX+9) 


P/u LRL 


153A 78 


04800 


LD 


A,B 


Bypass if LRL=256 


153B B7 


04810 


OR 


A 




153C CABD13 


04820 


JP 


Z,RWRIT2 




153F E5 


04830 


PUSH 


HL 


Save some FCB values 


1540 DD6605 


04840 


LD 


H,(IX+5) 


P/u buffer offset loc 


1543 DD6E08 


04850 


LD 


L,(IX+8) 


,P/U EOF offset byte 


1546 E3 


04860 
04870 


EX 


(SP),HL 


Put values on stack 
and recover HL 
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1547 7E 


04880 


WRREC 


LD 


A S (HL) 


;Pass the logical record 


1548 23 


04890 




INC 


HL 


; to the writing routine 


1549 E5 


04900 




PUSH 


HL 


; byte by byte 


154A C5 


04910 




PUSH 


BC 




154B CD2F13 


04920 




CALL 


WRCHAR 




154E CI 


04930 




POP 


BC 




154F El 


04940 




POP 


HL 




1550 2005 


04950 




JR 


NZ, WRERROR 


;Exit and fix FCB 


1552 10F3 


04960 




DJNZ 


WRREC 


;Loop for entire record 


1554 E3 


04970 




EX 


(SP) S HL 


;Remove stored FCB info 


1555 El 


04980 




POP 


HL 


;Recover HL 


1556 C9 


04990 




RET 






1557 E3 


05000 


WRERROR 


EX 


(SP),HL 


;Get FCB Values 


1558 DD7405 


05010 




LD 


(IX+5) S H 


; and put them back 


155B DD7508 


05020 




LD 


(IX+8) S L 




155E El 


05030 




POP 


HL 


;Restore HL 


155F C9 


05040 
05050 


9 


RET 




;Go back with error 




05060 


9 


Entry to Verify after 


write of a record 




05070 


9 








1560 CD6815 


05080 @VER 


CALL 


CKOPENG* 




1563 3C 


05090 




INC 


A 


;Set verify byte 


1564 18CE 


05100 




JR 


WRIT1 




1566 37 


05110 


LNKFCB0 


SCF 




; Init to force file open 


1567 D2 


05120 




DB 


0D2H 


; test by JP NC 9 aaaa 


1568 1A 


05130 


CKOPEN0 


LD 


A S (DE) 


; Ignore if from LNKFCB 


1569 07 


05140 




RLCA 




;Test hi bit of FCB 


156A E3 


05150 




EX 


(SP),HL 




156B 222600 


05160 




LD 


(JRET$) 9 HL 


;Save ret 


156E ED532400 05170 




LD 


(JDCB$) 9 DE 


;Save DCB 


1572 E3 


05180 




EX 


(SP) 5 HL 




1573 300F 


05190 




JR 


NC, NOTOPEN 


;Go if not an open FCB 


1575 Fl 


05200 




POP 


AF 


;Get return 


1576 D5 


05210 




PUSH 


DE 


;Dcb addr to IX 


1577 DDE3 


05220 




EX 


(SP),IX 




1579 E5 


05230 




PUSH 


HL 


;Save regs 


157A D5 


05240 




PUSH 


DE 




157B C5 


05250 




PUSH 


BC 




157C E5 


05260 




PUSH 


HL 


;Estab ret 


157D 218915 


05270 




LD 


HL,RESTREG 


; to restore registers 


1580 E3 


05280 




EX 


(SP),HL 




1581 F5 


05290 




PUSH 


AF 


;Put back ret 


1582 AF 


05300 




XOR 


A 




1583 C9 


05310 
05320 


9 


RET 




;Go back 


1584 Fl 


05330 


NOTOPEN 


POP 


AF 




1585 3E26 


05340 




LD 


A,26H 


;File not open 


1587 B7 


05350 




OR 


A 




1588 C9 


05360 
05370 


9 


RET 






1589 CI 


05380 RESTREG 


POP 


BC 


;Pop back registers save 


158A Dl 


05390 




POP 


DE 


; in CKOPEN0 


158B El 


05400 




POP 


HL 




158C DDE1 


05410 




POP 


IX 




158E C9 


05420 
05430 


9 


RET 








05440 


9 


Entry 


to Check if at end-of-file 




05450 


9 








158F CD6815 


05460 (3CKE0F 


CALL 


CKOPEN0 
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1592 CD0C14 


05470 CKE0F1 


CALL 


GETNRN 


;P/U NRN into HL 


1595 E5 


05480 


PUSH 


HL 


;Save un-adjusted NRN 


1596 CDB715 


05490 


CALL 


ADJUST 


;Adjust for special cases 


1599 7C 


05500 


LO 


A,H 


; Compare hi byte 


159A DDBE0D 


05510 


CP 


(IX+13) 




159D 200E 


05520 


JR 


NZ,CKEOF2 


;Go if not equal 


159F 7D 


05530 


LD 


A,L 


; Compare lo byte 


15A0 DDBE0C 


05540 


CP 


(IX+12) 




15A3 2008 


05550 


JR 


NZ S CKE0F2 


;Go if not equal 


15A5 0D 


05560 


DEC 


C 


;Adjust for 00=256 


15A6 DD7E08 


05570 


LD 


A s (IX+8) 


; Compare offset byte 


15A9 3D 


05580 


DEC 


A 




15AA 91 


05590 


SUB 


C 




15AB 3F 


05600 


CCF 






15AC 03 


05610 


INC 


BC 


;Restore old C value 


15AD El 


05620 CKE0F2 


POP 


HL 


;Restore unadjusted NRN 


15AE 3E1D 


05630 


LD 


A.1DH 


;Rec # out of range code 


15B0 2002 


05640 


JR 


NZ 9 CKE0F3 


;Go if not at EOF 


15B2 3D 


05650 


DEC 


A 


;X'1C'=E0F encountered 


15B3 C9 


05660 


RET 




;Return with NZ flag 


15B4 D0 


05670 CKE0F3 


RET 


NC 


;Return with error 


15B5 AF 


05680 


XOR 


A 


;No error 


15B6 C9 


05690 
05700 ; 


RET 








05710 ; 


File 


positioning adjustment routines 




05720 ; 








15B7 


05730 ADJUST 


EQU 


$ 


;Entry from GCKEOF & @LOC 


15B7 DD4E05 


05740 


LD 


C 9 (IX+5) 


;Pick up offset 


15 BA 


05750 ADJ2 


EQU 


$ 


; Entry from @BKSP/@RREAD 


15BA DDCB017E 05760 


BIT 


7,(IX+1) 


;Sector I/O only? 


15BE C8 


05770 


RET 


Z 


;No adjustment if so 


15BF 79 


05780 


LD 


A,C 


; Off set =0? (or "RREAD?") 


15C0 B7 


05790 


OR 


A 




15C1 2801 


05800 


JR 


Z,$+3 


;Go if zero 


15C3 23 


05810 


INC 


HL 


;Adjust 


15C4 DDCB016E 05820 


BIT 


5,(IX+1) 


;Check magic bit 


15C8 C0 


05830 


RET 


NZ 


;Go if set 


15C9 2B 


05840 


DEC 


HL 


;Adjust 


15CA C9 


05850 
05860 ; 


RET 








05870 ; 


Calcu 


late the cylinder/sector of needed record 




05880 ; 








15CB CD0C14 


05890 IOREC 


CALL 


GETNRN 


;P/u record number 


15CE CD261A 


05900 


CALL 


@DCTBYT-5 


;Get # of sectors/gran 


15D1 E61F 


05910 


AND 


1FH 




15D3 3C 


05920 


INC 


A 




15D4 CDE306 


05930 


CALL 


0DIV16 


;By # of sectors/gran 


15D7 326016 


05940 


LD 


(CALS5+1),A 


;Sv rmndr (sector offset) 


15DA DDE5 


05950 


PUSH 


IX 


;Xfer fcb to HL 


15DC E3 


05960 


EX 


(SP),HL 




15DD 010E00 


05970 


LD 


BC 9 14 


;Pt to 1st extent info 


15E0 09 


05980 


ADD 


HL,BC 




15E1 CI 


05990 


POP 


BC 


;Pop gran ptr HL into BC 


15E2 3E05 


06000 


LD 


A s 5 


; Ini t to ck 4 extents 


15E4 110000 


06010 


LD 


DE s 


; & extended FXDE ptr 


15E7 F5 


06020 GREC1 


PUSH 


AF 




15E8 7E 


06030 


LD 


A,(HL) 


;P/u starting cyl byte 


15E9 23 


06040 


INC 


HL 


; & bypass if FF 


15 EA 3C 


06050 


INC 


A 
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15EB 280B 
15ED E5 
15 EE 62 
15EF 6B 
15F0 AF 
15F1 ED42 
15F3 380E 
15F5 El 
15F6 2829 
15F8 23 
15F9 Fl 
15FA 3D 
15FB 2819 
15FD 5E 
15FE 23 
15FF 56 

1600 23 

1601 18E4 

1603 24 

1604 7D 

1605 El 

1606 20F0 

1608 D5 

1609 5F 
160A 7E 
160B E61F 
160D 83 
160E 7B 
160F Dl 

1610 30E6 
1612 ED44 
1614 180B 



1616 CD6416 
1619 C0 
161A 325016 
161D 302A 
161F 181F 



1621 325016 

1624 46 

1625 2B 

1626 4E 

1627 23 

1628 Fl 

1629 2F 
162A C604 
162C 3019 
162E 3C 
162F 07 

1630 07 

1631 C5 

1632 D5 



06060 

06070 

06080 

06090 

06100 

06110 

06120 

06130 

06140 

06150 GREC2 

06160 

06170 

06180 

06190 

06200 

06210 

06220 

06230 

06240 GREC3 

06250 

06260 

06270 ; 

06280 

06290 

06300 

06310 

06320 

06330 

06340 

06350 

06360 

06370 

06380 

06390 ; 

06400 ; 

06410 ; 

06420 GREC4 

06430 

06440 

06450 

06460 

06470 

06480 ; 

06490 ; 

06500 ; 

06510 CALCSEC 

06520 

06530 

06540 

06550 

06560 

06570 

06580 

06590 



JR 

PUSH 

LD 

LD 

XOR 

SBC 

JR 

POP 

JR 

INC 

POP 

DEC 

JR 

LD 

INC 

LD 

INC 

JR 

INC 

LD 

POP 

JR 

PUSH 

LD 

LD 

AND 

ADD 

LD 

POP 

JR 

NEG 

JR 



Z 9 GREC2 

HL 

H,D 

A* 

HL,BC 

CGREC3 

HL 

Z, CALCSEC 

HL 

AF 

A 

Z,GREC4 

E,(HL) 

HL 

D,(HL) 

HL 

GREC1 

H 

A,L 

HL 

NZ,GREC2 

DE 

E,A 

A,(HL) 

1FH 

A,E 

A,E 

DE 

NCGREC2 

CALCSEC 



Xfer the # of grans up 
to but not including 
this extent into HL 

Sub gran pointer from 
cumulative figure & go 
if not in previous ext 



;Jump when all quads c'kd 
;P/u cumulative # grans 
; up to but not 
; including this extent 



;Within 256 grans? 
;Xfer lo-order difference 
;Rcvr # of contig grans 
; in this extent 
;Go if not within 256 
;Save cumulative count 
;Xfer gran dif (neg) 
;P/u # of grans 
; in this extent 
;Add to negative dif f 
;Put neg diff into A 

Go if not in this extent 
Is in this extent, make 
diff positive & use it 



All current quads checked - Need directory info 



CALL 

RET 

LD 

JR 

JR 



ALLOC 

NZ 

(CALS4+1),A 

NC.CALS3 

CALS1 



Calc sector in gran 



06610 
06620 
06630 
06640 



LD 

LD 

DEC 

LD 

INC 

POP 

CPL 

ADD 

JR 

INC 

RLCA 

RLCA 

PUSH 

PUSH 



(CALS4+1),A 

B 9 (HL) 

HL 

C,(HL) 

HL 

AF 

A,4 

NC.CALS2 

A 



BC 
DE 



Get # of grans 

into the extent 

or error RET 
Jp if record in 1st ext 

else jp if in another 



Stuff # grans into 

this extent 
P/u # contig grans & 

rel start & start cyl 



;Rcvr # of quad 



;Jump if 1st ext or quad 
If not 1st, set up to move 
matching quad to the 
first position by 
shuffling the others up 
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1633 
1634 
1636 
1637 
163A 
163B 
163D 
163E 
163F 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
164A 
164B 
164C 
164D 
164F 
1651 
1654 
1655 
1656 
1657 
1659 
165A 
165B 
165E 
165F 
1661 
1662 
1663 



1664 
1667 
1668 
1669 
166A 
166B 
166C 
166E 
166F 
1672 
1673 
1674 
1676 
1677 
167A 
167B 
167C 
167E 
167F 



4F 

0600 

EB 

21FCFF 

19 

EDB8 

EB 

Dl 

CI 

70 

2B 

71 

2B 

72 

2B 

73 

60 

69 

7C 

07 

07 

07 

E607 

C600 

CD1919 

85 

57 

78 

E61F 

3C 

D5 

CD0A19 

Dl 

C600 

5F 

AF 

C9 



CDAE16 

C0 

E5 

60 

69 

AF 

ED52 

7D 

32A716 

El 

D5 

DDE 5 

E3 

110E00 

19 

Dl 

0605 

7E 

23 



CALS1 



CALS2 
CALS3 



06650 

06660 

06670 

06680 

06690 

06700 

06710 

06720 

06730 

06740 

06750 

06760 

06770 

06780 

06790 

06800 

06810 

06820 

06830 

06840 

06850 

06860 

06870 

06880 CALS4 

06890 

06900 

06910 

06920 

06930 

06940 

06950 

06960 

06970 

06980 

06990 

07000 

07010 

07020 

07030 

07040 

07050 

07060 

07070 

07080 

07090 

07100 

07110 

07120 

07130 

07140 

07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

07230 



CALS5 



ALLOC 



LD 

LD 

EX 

LD 

ADD 

LDDR 

EX 

POP 

POP 

LD 

DEC 

LD 

DEC 

LD 

DEC 

LD 

LD 

LD 

LD 

RLCA 

RLCA 

RLCA 

AND 

ADD 

CALL 

ADD 

LD 

LD 

AND 

INC 

PUSH 

CALL 

POP 

ADD 

LD 

XOR 

RET 



C S A 

B,0 

DE S HL 

HL s -4 

HL.DE 

DE S HL 

DE 

BC 

(HL),B 

HL 

(HL),C 

HL 

(HL) S D 

HL 

(HL) 9 E 

H S B 

UC 

A,H 



7 

A s 

RELCYL 

A,L 

D S A 

A S B 

1FH 

A 

DE 

0MUL8 

DE 

A,0 

E,A 

A 



;Get bytes to move 

;DE = top of last quad 

;HL = top of next lower 
;Do the shuffle 



;Move info on matching quad 
; into position 



;Xfer start & contig gran 
;Xfer start cylinder 

;P/u start gran on track 



;P/u # grans into extent 
;Calc 1st relative cyl 
;Add starting cylinder 

;Rcvr # sectors/gran 



Calculate sector offset 
into desired cylinder 
for desired granule 

P/u # of excess sectors 
over even gran & add 
to granule sector 



On entry, gran needed is in BC 



ALL1 



CALL 

RET 

PUSH 

LD 

LD 

XOR 

SBC 

LD 

LD 

POP 

PUSH 

PUSH 

EX 

LD 

ADD 

POP 

LD 

LD 

INC 



CYL_GRN 

NZ 

HL 

H,B 

L 9 C 

A 

HL S DE 

(ALL6+1),A 

HL 

DE 

IX 

(SP) 9 HL 

DE S 14 

HL,DE 

DE 

B,5 

A,(HL) 

HL 



Find ext cntng gran 

Ret on error 

Save starting cyl & gran 

Xfer granule needed to 
HL then calculate how 
many grans into this 
extent is the desired 
granule 

Stuff rel gran from 
start of extent 

Save granule count 
to extent 

FCB pointer to HL 

Pt to 1st alloc in FCB 

Pop starting cylinder 

to this extent 
P/u a cyl 
;Does starting cyl of 
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1680 BB 07240 CP 

1681 2006 07250 JR 

1683 7E 07260 LD 

1684 AA 07270 XOR 

1685 E6E0 07280 AND 
1687 2819 07290 JR 
1689 05 07300 ALL2 DEC 
168A 2805 07310 JR 
168C 23 07320 INC 
168D 23 07330 INC 
168E 23 07340 INC 
168F 18ED 07350 JR 

1691 D5 07360 ALL3 PUSH 

1692 EB 07370 EX 

1693 21FCFF 07380 LD 

1696 19 07390 ADD 

1697 010C00 07400 LD 
169A EDB8 07410 LDDR 
169C EB 07420 EX 
169D CI 07430 POP 
169E AF 07440 XOR 
169F 37 07450 SCF 
16A0 1803 07460 JR 
16A2 72 07470 ALL4 LD 
16A3 EB 07480 EX 
16A4 AF 07490 XOR 
16A5 Dl 07500 ALL5 POP 
16A6 3E00 07510 ALL6 LD 
16A8 C9 07520 RET 

07530 ; 

07540 ; 

07550 ; 

16A9 CDF216 07560 CG06 CALL 

16AC CI 07570 POP 

16AD C0 07580 RET 

07590 

07600 ; 

07610 ; 

07620 ; 

16AE C5 07630 CYL_GRN PUSH 

16AF 110000 07640 LD 

16B2 DD4607 07650 LD 

16B5 78 07660 CG01 LD 

16B6 32AC17 07670 LD 

16B9 DD4E06 07680 LD 

16BC CDBB18 07690 CALL 

16BF 011600 07700 LD 

16C2 09 07710 ADD 

16C3 EB 07720 EX 

16C4 CI 07730 POP 

16C5 C0 07740 RET 

16C6 1A 07750 CG02 LD 

16C7 FEFE 07760 CP 

16C9 301F 07770 JR 

16CB 13 07780 INC 

16CC 1A 07790 LD 

16CD E5 07800 PUSH 

16CE E61F 07810 AND 

16D0 3C 07820 INC 



SYSRES - LS-DOS 6.2 



Page 00017 



NZ S ALL2 

A S (HL) 

D 

0E0H 

Z,ALL4 

B 

Z S ALL3 

HL 

HL 

HL 

ALL1 

DE 

DE,HL 

HL 9 -4 

HL S DE 

BC.12 

DE,HL 

BC 

A 

ALL5 

(HL) 9 D 

DE,HL 

A 

DE 

A,0 



; needed gran alloc 

; appear in this extent? 

;Now see if needed gran is 

; in this extent field 

; by checking its starting gran 

;Dec the count down loop 
;Done if no match 
;Go to next extent 
; info in FCB 



;Save needed extent info 
;Set up to shuffle extent 
: info 



;Set Z, no error 

;Set CF, extent not found 



;Set Z no error 

;# of grans into this ext 
;Where desired gran is 



Extent is unused - need to allocate more space 



CG07 

BC 

NZ 



;Try to allocate more 
;Get back desired gran 
;Return on error 
;Look for gran again 



Find extent containing desired granule 



BC 

DE,0 

B,(IX+7) 

A,B 

(STUFDEC+1),A 

C, (IX+6) 

0DIRRD 

BC,22 

HL,BC 

DE,HL 

BC 

NZ 

A,(DE) 

0FEH 

NC,CG05 

DE 

A,(DE) 

HL 

1FH 

A 



;Save desired gran # 
; Init gran counter 
;P/u DEC of file 

Stuff 

P/u drive for file 
Read its directory 
Point to 1st extent 

of its directory 
Gran count to HL 
Restore desired gran 
Return on read error 
Is this extent 

allocated? 
Jump if it is not 
Point to allocation 
P/u relative gran & 

of contiguous grans 
Keep contiguous grans 

& bump for offset 



# 
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16D1 85 


07830 


ADD 


A,L 


;Add to count in HL 


16D2 6F 


07840 


LD 


L,A 




16D3 3001 


07850 


JR 


NC.CG03 




16D5 24 


07860 


INC 


H 


;Bump hi order 


16D6 E5 


07870 CG03 


PUSH 


HL 


;Save gran count to 


16D7 2B 


07880 


DEC 


HL 


; end of extent 


16 D8 AF 


07890 


XOR 


A 


;Test if EOF is in this 


16D9 ED42 


07900 


SBC 


HL, BC 


; allocation 


16DB El 


07910 


POP 


HL 




16 DC 3004 


07920 


JR 


NC 9 CG04 


;EOF not > this alloc 


16DE 13 


07930 


INC 


DE 


;Get rid of old 


16DF Fl 


07940 


POP 


AF 


; current quantity 


16E0 18E4 


07950 
07960 ; 


JR 


CG02 


;Check next extent 




07970 ; 


The EOF 


is within this , 


allocation. Recover 




07980 ; 


the allocation data and 


exit 




07990 ; 








16E2 El 


08000 CG04 


POP 


HL 


;P/u gran count to extent 


16E3 EB 


08010 


EX 


DE,HL 


;Gran count to DE 


16E4 7E 


08020 


LD 


A 9 (HL) 


;P/u granule data 


16E5 2B 


08030 


DEC 


HL 




16E6 6E 


08040 


LD 


L,(HL) 


;P/u starting cylinder 


16E7 67 


08050 


LD 


H S A 




16E8 AF 


08060 


XOR 


A 




16E9 C9 


08070 
08080 ; 


RET 








08090 ; 


This extent is 1) unused, or 2) FXDE pointer 




08100 ; 


and the 


needed gran has 


not been found yet 




08110 ; 








16EA C5 


08120 CG05 


PUSH 


BC 


;Gran count to DE & 


16EB EB 


08130 


EX 


DE S HL 


;DIR ptr to HL 


16EC 20BB 


08140 


JR 


NZ,CG06 


;Jump if unused 


16EE 23 


08150 


INC 


HL 


; Point to DEC of FXDE 


16 EF 46 


08160 


LD 


B S (HL) 


;P/u the DEC 


16F0 18C3 


08170 
08180 ; 


JR 


CG01 


; & loop 




08190 ; 


See if 


the drive has enough free space left 




08200 ; 








16F2 C5 


08210 CG07 


PUSH 


BC 


;Save needed gran 


16F3 DD4E06 


08220 


LD 


C.UX+6) 


;P/u file's drive 


16F6 CD7418 


08230 


CALL 


0GATRD 


;Get GAT 


16F9 CI 


08240 


POP 


BC 


;Rcvr needed gran 


16FA C0 


08250 


RET 


NZ 


;Return if GAT error 


16FB E5 


08260 


PUSH 


HL 




16FC 60 


08270 


LD 


H,B 


;Xfer the requested 


16FD 69 


08280 


LD 


L,C 


; gran to HL & 


16FE AF 


08290 


XOR 


A 


; subtract current gran 


16FF ED52 


08300 


SBC 


HL,DE 


;Count to calculate how 


1701 44 


08310 


LD 


B,H 


; many excess grans 


1702 4D 


08320 


LD 


C,L 


; are needed 


1703 03 


08330 


INC 


BC 




1704 Dl 


08340 


POP 


DE 


;Rcvr dir byte ptr 


1705 13 


08350 


INC 


DE 


;Pt to next DIR byte 


1706 2623 


08360 


LD 


H,DIRBUF$<-8 


; Start looking at TRK #1 


1708 3A6A00 


08370 


LD 


A,(AFLAG$) 


;P/u Search start CYL 


170B 6F 


08380 


LD 


L,A 


; and put it in L 


170C C5 


08390 


PUSH 


BC 


;Save excess grans needed 


170D 7B 


08400 


LD 


A,E 


;Is this extent the 1st? 


170E E61E 


08410 


AND 


1EH 


;Jump if so, else we can 
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1710 FE16 


08420 


CP 


16H 


; use it for allocation 


1712 2842 


08430 


JR 


Z,CG14 




1714 ID 


08440 


DEC 


E 


;Backup to previous 


1715 ID 


08450 


DEC 


E 


; extent 


1716 1A 


08460 CG12 


LD 


A S (DE) 


;P/u # of contig grans to 


1717 E61F 


08470 


AND 


1FH 


; see if the last gran 


1719 3C 


08480 


INC 


A 


; used can be extended 


171A 4F 


08490 


LD 


C,A 


;Is current # the max 


171B FE20 


08500 


CP 


20 H 


; an extent can hold? 


171D 2820 


08510 


JR 


Z,CG13 


;Jump if a full extent 


171F 1A 


08520 


LD 


A S (DE) 


; (32 grans max) - else 


1720 E6E0 


08530 


AND 


0E0H 


; p/u the relative 


1722 07 


08540 


RLCA 




; granule offset 


1723 07 


08550 


RLCA 






1724 07 


08560 


RLCA 






1725 81 


08570 


ADD 


A,C 


;Add the # of contiguous 


1726 D5 


08580 


PUSH 


DE 


; granules 


1727 CD1919 


08590 


CALL 


RELCYL 


;Calc relative cyl needed 


172A 47 


08600 


LD 


B,A 


;Save offset 


172B 4B 


08610 


LD 


C,E 




172C Dl 


08620 


POP 


DE 




172D IB 


08630 


DEC 


DE 


;Backup to starting cyl 


172E 1A 


08640 


LD 


A,(DE) 




172F 13 


08650 


INC 


DE 


; & repoint to alloc byte 


1730 80 


08660 


ADD 


A,B 


;Add cyls used to 


1731 6F 


08670 


LD 


L,A 


; starting cyl 


1732 2623 


08680 


LD 


H,DIRBUF$<-8 


;Is it less than max? 


1734 FECB 


08690 


CP 


0CBH 




1736 3007 


08700 


JR 


NC,CG13 


;Jump if too big 


1738 79 


08710 


LD 


A S C 




1739 46 


08720 


LD 


B S (HL) 


;P/u the cyl's GAT 


173A CD5B18 


08730 


CALL 


TSTBIT 


;Test if gran is free 


173D 284B 


08740 
08750 ; 


JR 


Z,CG21 


;Bypass if free gran 




08760 ; 


The nex 


t gran cannot 


be used - get another extent 




08770 ; 








173F 1C 


08780 CG13 


INC 


E 


;Else point to next 


1740 1C 


08790 


INC 


E 


; extent field 


1741 7B 


08800 


LD 


A,E 




1742 E61E 


08810 


AND 


1EH 


;Jump if not on the FXDE 


1744 FE1E 


08820 


CP 


1EH 


; field, else we have to 


1746 200E 


08830 
08840 ; 


JR 


NZ,CG14 


; obtain an FXDE record 




08850 ; 


Last ex 


tent used up, 


get new dir rec for FXDE 




08860 ; 








1748 CDA417 


08870 


CALL 


CG23 


; Write curent GAT & HIT 


174B CI 


08880 


POP 


BC 




174C C0 


08890 


RET 


NZ 


;Ret if GAT/HIT error 


174D C5 


08900 


PUSH 


BC 




174E CDAF17 


08910 


CALL 


NEWHIT 


;Get new HIT for FXDE 


1751 CI 


08920 


POP 


BC 




1752 C0 


08930 


RET 


NZ 


;Loop to process 


1753 C3AE16 


08940 
08950 ; 


JP 


CYL_GRN 


; new extent 




08960 ; 


Extent 


is vacant - use it & get new allocation 




08970 ; 








1756 CDFE18 


08980 CG14 


CALL 


MAXCYL 


;Get highest # cyl 


1759 326017 


08990 


LD 


(CG17+D.A 


; Stuff highest cyl 


175C 0602 


09000 


LD 


B,2 
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175E 7D 


09010 CG16 


LD 


A S L 


;Test last cyl used 


175F FE00 


09020 CG17 


CP 





;P/u max cyl 


1761 3007 


09030 


JR 


NC 9 CG18 




1763 7E 


09040 


LD 


A S (HL) 


;P/u a GAT byte 


1764 3C 


09050 


INC 


A 




1765 2010 


09060 


JR 


NZ,CG19 


;Go if space in this cyl 


1767 2C 


09070 


INC 


L 


; else bump to next one 


1768 18F4 


09080 


JR 


CG16 


; & loop 


176A 2E00 


09090 CG18 


LD 


L,0 


;Now start from begin 


176C 10F0 


09100 


DJNZ 


CG16 


; of disk & recheck 


176E CI 


09110 


POP 


BC 




176F CDA417 


09120 


CALL 


CG23 


;Write out GAT & HIT 


1772 C0 


09130 


RET 


NZ 




1773 3E1B 


09140 


LD 


A.1BH 


;"disk space full" 


1775 B7 


09150 


OR 


A 




1776 C9 


09160 
09170 ; 


RET 








09180 ; 


Found 


available space in 


cyl i nder 




09190 ; 








1777 3EFF 


09200 CG19 


LD 


A,0FFH 


;Set DIR extent to FF 


1779 12 


09210 


LD 


(DE),A 




177A 0E00 


09220 


LD 


C,0 




177C 46 


09230 


LD 


B,(HL) 


;P/u current GAT alloc 


177D 79 


09240 CG20 


LD 


A,C 




177E CD5B18 


09250 


CALL 


TSTBIT 


;Find a free gran 


1781 2807 


09260 


JR 


Z S CG21 


; & jump when found 


1783 1A 


09270 


LD 


A,(DE) 


; else advance starting 


1784 C620 


09280 


ADD 


A,20H 


; rel gran value 


1786 12 


09290 


LD 


(DE),A 




1787 0C 


09300 


INC 


C 


;Bump pointer to test 


1788 18F3 


09310 
09320 ; 


JR 


CG20 


; next gran 




09330 ; 


Next 


gran in line is free - allocate it 




09340 ; 








178A 79 


09350 CG21 


LD 


A,C 




178B CD6818 


09360 


CALL 


SETBIT 


;Show it allocated 


178E B6 


09370 


OR 


(HL) 




178F 77 


09380 


LD 


(HL) S A 




1790 ID 


09390 


DEC 


E 


;Backup to starting cyl 


1791 1A 


09400 


LD 


A,(DE) 


;Bump by one to see if 


1792 3C 


09410 


INC 


A 


; this alloc is the 1st 


1793 2002 


09420 


JR 


NZ,CG22 


; one for the extent & 


1795 7D 


09430 
09440 


LD 


A,L 


; we have to set the 
; starting cylinder 


1796 12 


09450 


LD 


(DE),A 


.Stuff starting cyl 


1797 1C 


09460 CG22 


INC 


E 




1798 1A 


09470 


LD 


A,(DE) 


;Add 1 to # of contiguous 


1799 3C 


09480 


INC 


A 


, granules 


179A 12 


09490 


LD 


(DE),A 




179B CI 


09500 


POP 


BC 


;Decrement needed gran 


179C 0B 


09510 


DEC 


BC 


; count since we just 


179D C5 


09520 


PUSH 


BC 


; allocated one 


179E 78 


09530 


LD 


A,B 


;Loop if we need more 


179F Bl 


09540 


OR 


C 


; space allocated 


17A0 C21617 


09550 


JP 


NZ,CG12 




17A3 CI 


09560 


POP 


BC 




17A4 DD4E06 


09570 CG23 


LD 


C,(IX+6) 


.Else p/u the drive # 


17A7 CD7518 


09580 


CALL 


0GATWR 


; & write out the GAT 


17AA C0 


09590 


RET 


NZ 
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17AB 0600 
17AD 1854 



17AF 
17B2 
17B5 
17B6 
17B9 
17BB 
17BE 
17C0 
17C1 
17C2 
17C3 
17C6 
17C7 
17CA 
17CB 
17CC 
17CF 
17D2 
17D3 
17D5 
17D6 
17D7 
17DA 
17DB 
17DC 
17DE 
17E0 
17E1 
17E3 
17E4 
17E6 
17E8 
17E9 
17EB 
17EC 
17ED 
17EE 
17F1 
17F2 
17F5 
17F6 
17F9 
UFA 
17FB 
17FD 
17FE 
1800 
1801 



DD4E06 

CD9718 

C0 

DD7E07 

E61F 

CD1F18 

3E1E 

C0 

45 

7D 

320218 

54 

DD5E07 

1A 

77 

CD9818 

CCBB18 

C0 

3690 

2C 

C5 

3AAC17 

77 

2C 

0614 

3600 

2C 

10FB 

E5 

060A 

36 FF 

2C 

10FB 

Dl 

13 

CI 

CD0318 

C0 

3AAC17 

47 

CDBB18 

C0 

7D 

C61E 

6F 

36FE 

2C 

3600 



09600 
09610 
09620 
09630 
09640 
09650 
09660 
09670 
09680 
09690 
09700 
09710 
09720 
09730 
09740 
09750 
09760 
09770 
09780 
09790 



STUFDEC LD 
JR 



(9DIRWR 



09810 
09820 
09830 
09840 
09850 
09860 
09870 
09880 
09890 
09900 
09910 
09920 
09930 
09940 
09950 
09960 
09970 
09980 
09990 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 



IIT1 



IIT2 



IIT3 



Get new HIT for FXDE 



NEWHIT LD 
CALL 
RET 
LD 
AND 
CALL 
LD 
RET 
LD 
LD 
LD 
LD 
LD 
LD 
LD 

CALL 
CALL 
RET 
LD 
INC 
PUSH 
LD 
LD 
INC 
LD 
LD 
INC 
DJNZ 
PUSH 
LD 
LD 
INC 
DJNZ 
POP 
INC 
POP 
CALL 
RET 
LD 
LD 

CALL 
RET 
LD 
ADD 
LD 
LD 
INC 
LD 



C,(IX+6) 

0HITRD 

NZ 

A 9 (IX+7) 

1FH 

NHIT4 

A,1EH 

NZ 

B,L 

A,L 

(NHIT3+1) 9 A 

D 9 H 

E 9 (IX+7) 

A,(DE) 

(HL) S A 

(9HITWR 

Z S (9DIRRD 

NZ 

(HL) 9 90H 

L 

BC 

A 9 (STUFDEC+1) 

(HL) 9 A 

L 

B 9 20 

(HL) 9 

L 

NHIT1 

HL 

B 9 10 

(HL) 9 0FFH 

L 

NHIT2 

DE 

DE 

BC 

0DIRWR 

NZ 

A 9 (STUFDEC+1) 

B 9 A 

0DIRRD 

NZ 

A 9 L 

A,1EH 

L,A 

(HL) 9 0FEH 

L 

(HL) 9 



;P/u DEC of FPDE 



;P/u drive # 
;Read the HIT 

;P/u FPDE DEC so 1st ck 

; will be for next 

; in line 

; Init "full directory... 

;Ret if no space 

;Set DEC for 

; directory read 

; Stuff new DEC from HIT 

;P/u current DEC 

;Copy filespec hash code 

; to new DEC 



;Show dir rec in use as 
; FXDE record 
;P/u DEC of FPDE & 
; stuff it into FXDE's 
; DIR+1 to link back 

;Zero out 20 bytes 
; in the FXDE 



;Save ptr to 1st extent 
; Init to X'FF' 10 bytes 
; or 5 extents 



;Rcvr ptr to 1st extent 
;Pt to allocation byte 

;Write FXDE back to disk 

;Return if error 

; else p/u DEC of FPDE 

;Read its directory 
; & return if error 

; Point to FXDE posn 

; in FPDE 

;Show link to FXDE 

;Show what's the FXDE DEC 
; & write the DIR back 



Routine to write a directory sector 

B => DEC of FPDE, C => logical drive number 

HL <= points to directory record in SBUFF$ 
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1803 CD0718 


10190 0DIRWR 


CALL 


DIRWR 


; Permit two attempts 


1806 C8 


10200 




RET 


Z 




1807 D5 


10210 


DIRWR 


PUSH 


DE 


;Save the reg 


1808 CDCA18 


10220 




CALL 


CALCDIR 


;Ca1c dir cyl 


180B 2E00 


10230 




LD 


L,0 


;Set buffer to start 


180D CDEC19 


10240 




CALL 


0WRSSC 


;Write the sector 


1810 CCDC19 


10250 




CALL 


Z,@VRSEC 


;Verify on no error 


1813 D606 


10260 




SUB 


6 




1815 Dl 


10270 




POP 


DE 




1816 C8 


10280 




RET 


Z 


;Back on system sector 


1817 FE09 


10290 




CP 


0FH-6 


;WP error? 


1819 3E12 


10300 




LD 


A, 18 


;Set dir write error 


181B C0 


10310 




RET 


NZ 


; if not WP 


181C D603 


10320 




SUB 


3 




181E C9 


10330 
10340 




RET 








10350 




Find 


a spare HIT entry 






10360 










181F F5 


10370 


NHIT4 


PUSH 


AF 




1820 3E07 


10380 




LD 


A,7 


;Get highest # sector 


1822 CD2B1A 


10390 




CALL 


@DCTBYT 


; on a cylinder 


1825 D5 


10400 




PUSH 


DE 


; into register E 


1826 57 


10410 




LD 


D S A 




1827 E61F 


10420 




AND 


1FH 




1829 5F 


10430 




LD 


E,A 




182A 1C 


10440 




INC 


E 


;& get number of heads 


182B AA 


10450 




XOR 


D 


; into register A 


182C 07 


10460 




RLCA 






182D 07 


10470 




RLCA 






182 E 07 


10480 




RLCA 






182F 3C 


10490 




INC 


A 




1830 CD0A19 


10500 




CALL 


0MUL8 


;To calc sectors/cylinder 


1833 CD3B19 


10510 




CALL 


CKDBLBIT 


;Double if necessary 


1836 Dl 


10520 




POP 


DE 


;Total sectors per cyl 


1837 D602 


10530 




SUB 


2 


;Reduce for GAT & HIT 


1839 324918 


10540 




LD 


(NHIT7+D.A 


;# of directory sectors 


183C Fl 


10550 




POP 


AF 


;Get DEC init entry 


183D 6F 


10560 




LD 


L,A 




183E CD4518 


10570 




CALL 


NHIT6 


;Ck if HIT slot is spare 


1841 C8 


10580 




RET 


Z 


;Return if it is spare 


1842 2E3F 


10590 




LD 


L,3FH 




1844 2C 


10600 


NHIT5 


INC 


L 




1845 7D 


10610 


NHIT6 


LD 


A S L 




1846 E61F 


10620 




AND 


1FH 




1848 FE00 


10630 


NHIT7 


CP 





;Does value exceed 


184A 300D 


10640 




JR 


NC.NHIT9 


; sectors/cylinder? 


184C 7E 


10650 




LD 


A,(HL) 




184D B7 


10660 




OR 


A 




184E C8 


10670 




RET 


Z 




184F 7D 


10680 


NHIT8 


LD 


A,L 




1850 C620 


10690 




ADD 


A,20H 




1852 6F 


10700 




LD 


L,A 




1853 30F0 


10710 




JR 


NC,NHIT6 




1855 FE1F 


10720 




CP 


1FH 


;Else go to next sector 


1857 20EB 


10730 




JR 


NZ S NHIT5 


; column 


1859 B7 


10740 


NHIT9 


OR 


A 




185A C9 


10750 
10760 


s 


RET 








10770 


» 


Test 


if gran is free in 


GAT 



Page 86 



The Source SYSTEM Files 
File positioning subroutines 



SYSRES - LS-DOS 6.2 



Page 00023 



185B E607 
185D 07 
185E 07 
185F 07 
1860 F640 
1862 326618 
1865 CB40 
1867 C9 



1868 07 

1869 07 
186A 07 
186B F6C7 
186D 327218 

1870 AF 

1871 CBC7 
1873 C9 



1874 F6 

1875 AF 

1876 D5 

1877 E5 

1878 F5 

1879 CDF 718 
187C 210023 
187F 5D 

1880 Fl 

1881 2807 
1883 CDD818 
1886 3E14 
1888 180A 
188A CDEC19 
188D CCDC19 
1890 FE06 
1892 3E15 

1894 El 

1895 Dl 

1896 C9 



1897 F6 

1898 AF 

1899 C5 
189A D5 
189B F5 
189C CDF 718 
189F 1E01 
18A1 21001D 
18A4 Fl 
18A5 2807 
18A7 CDD818 
18AA 3E16 
18AC 180A 



10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 



TSTBIT 



TBIT1 



SETBIT 



SBIT1 



0GATRD 
@GATWR 



GATRW1 



GATRW2 



0HITRD 
0HITWR 



AND 7 

RLCA 

RLCA 

RLCA 

OR 40H 

LD (TBIT1+D.A 

BIT 0,B 

RET 



Get to 7 

Shift to match BIT n, 
opcode 



;Modify BIT instruction 



Set gran to allocated in GAT 



RLCA 

RLCA 

RLCA 

OR 0C7H 

LD (SBIT1+1),A 

XOR A 

SET S A 

RET 



;Shift to create opcode 
: to match current bit 



; Create SET n, opcode 



Routine reads/writes the Granule Allocation Table 



DB 

XOR 

PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

POP 

JR 

CALL 

LD 

JR 

CALL 

CALL 

CP 

LD 

POP 

POP 

RET 



0F6H 

A 

DE 

HL 

AF 

0DIRCYL 

HL,DIRBUF$ 

E,L 

AF 

Z,GATRW1 

(3RDSSC 

A,14H 

GATRW2 

0WRSSC 

Z,@VRSEC 

6 

A.15H 

HL 

DE 



;Set NZ for test 
;Set Z for test 



;Save flag for test 



;Set E to 

;Rcvr flag for R/W 

;Go if 0GATWR 

; Init "GAT read error" 

protected sector write 
;Verify if OK 
protected sector? 
; Init "GAT write error" 



Read or write the hash index table 



DB 

XOR 

PUSH 

PUSH 

PUSH 

CALL 

LD 

LD 

POP 

JR 

CALL 

LD 

JR 



0F6H 

A 

BC 

DE 

AF 

@DIRCYL 

E,l 

HL,SBUFF$ 

AF 

Z,HITRW1 

(9RDSSC 

A 22 

HITRW2 



;Set NZ for test 
;Set Z for test 



;Save flag for test 

;D => directory cylinder 

;E => HIT sector 

;HL => HIT buffer area 

;Rcvr flag for RD/WR 

;Go if 0HITWR 

;Read cyl D, sector E 

;Init "HIT read error" 
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18AE CDEC19 


11370 HITRW1 


CALL 


0WRSSC 


protected sector write 


18B1 CCDC19 


11380 


CALL 


Z,@VRSEC 


;Verify the write 


18B4 FE06 


11390 


CP 


6 


; Protected sector? 


18B6 3E17 


11400 


LD 


A s 23 


;"HIT write error" 


18B8 Dl 


11410 HITRW2 


POP 


DE 


;Message for other than 


18B9 CI 


11420 


POP 


BC 


; attempt protected sector 


18BA C9 


11430 
11440 ; 


RET 








11450 ; 


Routi 


ne to read a directory sector 




11460 ; 


B => 


DEC of FPDE S C 


=> logical drive number 




11470 ; 


HL <= 


points to directory record in SBUFF$ 




11480 ; 








18BB D5 


11490 0DIRRD 


PUSH 


DE 




18BC CDCA18 


11500 


CALL 


CALCDIR 


;Set HL to SBUFF$ 


18BF E5 


11510 


PUSH 


HL 




18C0 2E00 


11520 


LD 


L,0 


; Start of bfr 


18C2 CDD818 


11530 


CALL 


(9RDSSC 


;Read it 


18C5 El 


11540 


POP 


HL 




18C6 3E11 


11550 


LD 


A 9 17 


; Init to dir read err 


18C8 Dl 


11560 


POP 


DE 




18C9 C9 


11570 
11580 ; 


RET 








11590 ; 


Routi 


ne to get directory access data 




11600 ; 


B => 


DEC 






11610 ; 


DE <= 


cylinder and < 


sector needed 




11620 ; 


HL <= 


pointer to directory record in SBUFF$ 




11630 ; 








18CA CDF 718 


11640 CALCDIR 


CALL 


0DIRCYL 


;6et directory cyl in D 


18CD 78 


11650 


LD 


A,B 


Calculate record start 


18CE E6E0 


11660 


AND 


0E0H 


; from the DEC 


18D0 6F 


11670 


LD 


L S A 




18D1 261D 


11680 


LD 


H,SBUFF$<-8 


; Point to buffer start 


18D3 A8 


11690 


XOR 


B 


Calculate directory 


18D4 C602 


11700 


ADD 


A,2 


; sector needed 


18D6 5F 


11710 


LD 


E,A 




18D7 C9 


11720 
11730 ; 


RET 








11740 ; 


Read 


system sector, 


D=Track, E=Sector 9 HL=Buffer 




11750 ; 








18D8 CDF118 


11760 @RDSSC 


CALL 


READIR 




18DB C8 


11770 


RET 


Z 




18DC D5 


11780 


PUSH 


DE 




18DD 110100 


11790 


LD 


DE S 1 


;Pt to tk 0, sec 1 


18E0 CDF 419 


11800 


CALL 


@RDSEC 


;Read to find dir cyl 


18E3 Dl 


11810 


POP 


DE 




18E4 C0 


11820 


RET 


NZ 




18E5 E5 


11830 


PUSH 


HL 




18E6 23 


11840 


INC 


HL 


;Pt to dir tk # 


18E7 23 


11850 


INC 


HL 




18E8 56 


11860 


LD 


D 9 (HL) 


;P/u dir tk fm boot 


18E9 2609 


11870 


LD 


H,9 


; Update memory table 


18EB CD341A 


11880 


CALL 


DCTFLDG 




18EE 6F 


11890 


LD 


L,A 




18EF 72 


11900 


LD 


(HL),D 




18F0 El 


11910 


POP 


HL 




18F1 CDF419 


11920 READIR 


CALL 


0RDSEC 


;Retry dir read 


18F4 D606 


11930 


SUB 


6 


;Test protected 


18F6 C9 


11940 
11950 ; 


RET 
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18F7 3E09 

18F9 CD2B1A 

18FC 57 

18FD C9 

18FE 3E06 

1900 C5 

1901 DD4E06 
1904 CD2B1A 

1907 3C 

1908 CI 

1909 C9 



190A C5 
190B 57 
190C AF 
190D 0608 
190F 87 
1910 CB23 
1912 3001 

1914 82 

1915 10F8 

1917 CI 

1918 C9 



1919 5F 
191A CD261A 
191D 47 
191E 07 
191F 07 

1920 07 

1921 E607 

1923 3C 

1924 CD3B19 



1927 
1928 
1929 
192B 
192C 
192E 
192F 
1930 
1932 
1933 
1934 
1936 
1937 
1938 
1939 
193A 



C5 

4F 

0608 

AF 

CB23 

17 

B9 

3802 

91 

1C 

10F6 

4F 

7B 

59 

CI 

C9 



11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 



(9DIRCYL 



MAXCYL 



0MUL8 



MEA1 



MEA2 



RELCYL 



0DIV8 



DEA1 



DEA2 



LD 

CALL 
LD 
RET 

LD 

PUSH 

LD 

CALL 

INC 

POP 

RET 



A 9 9 

@DCTBYT 

D 9 A 



A,6 

BC 

C s (IX+6) 

0DCTBYT 

A 

BC 



;Get the dir cylinder 



;Get highest # cyl 
;Adjust for zero offset 



Multiply register E by register A 

:Mult A x E 



PUSH 

LD 

XOR 

LD 

ADD 

SLA 

JR 

ADD 

DJNZ 

POP 

RET 



BC 

D,A 

A 

B,8 

A S A 

E 

NC S MEA2 

A,D 

MEA1 

BC 



Calculate relative cylinder for granule needed 



LD 

CALL 

LD 

RLCA 

RLCA 

RLCA 

AND 

INC 

CALL 



E A 

(3DCTBYT-5 

B,A 



7 
A 
CKDBLBIT 



;Get # of grans/track 
;Hang on to this 



;Adj for offset 



Divide register E by register A 



PUSH 

LD 

LD 

XOR 

SLA 

RLA 

CP 

JR 

SUB 

INC 

DJNZ 

LD 

LD 

LD 

POP 

RET 



BC 

C,A 

B,8 

A 

E 

C 

CDEA2 

C 

E 

DEA1 

C,A 

A,E 

E,C 

BC 



Routine to double the A register if DBL bit is set 
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12550 ; 

12560 CKDBLBIT 

193B 57 12570 LD D,A ;Adjust for 2-sided & 

193C 3E04 12580 LD A, 4 ; calculate # of cyls 

193E CD2B1A 12590 CALL GDCTBYT 

1941 CB6F 12600 BIT 5, A ;Test if 2-sided 

1943 7A 12610 LD A,D 

1944 2801 12620 JR Z,$+3 ;Double the grans if 2 

1946 87 12630 ADD A,A ; & fall thru to DIV8 

1947 C9 12640 RET 
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1948 
1948 
F80D 
F80D 4C 
53 

F81C 20 



2D 44 
30 32 



F81D 2D 
20 
68 

F82E 4C 
6F 
79 
6E 

F85E 

F85E 41 
6C 
73 
65 

F873 4C 
69 
74 
20 
20 

1948 



1948 



43 6F 
74 20 

67 69 
73 74 
63 2E 



6C 20 
20 52 
64 2E 

63 65 
6F 20 
20 20 
20 20 



03360 
03370 
03380 
03390 
4F 53 
2E 30 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
70 79 
31 39 
03500 
63 61 
65 6D 

03510 

03520 

52 69 

65 73 

20 

03530 

6E 73 

20 20 

20 20 

20 20 

03540 

03550 

03560 

03570 

03580 



CORE! 



20 30 
30 



PAGE 

DEFL $ 
ORG 
DB 



36 



IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

DB 



72 69 
38 34 

6C 20 

73 20 



67 68 
65 72 



65 64 
20 20 
20 20 



67 

20 

I 

53 
49 



DB 



ORG 
DB 



74 
76 



DB 



20 
20 
20 



CRTBGN$+13 
'LS-DOS 06.02.; 



@USA 
i i 

0GERMAN 

IQI 

0FRENCH 
'F' 



'- Copyright 1984 ' 
'Logical Systems Inc. 1 



CRTBGN$+80+14 

'All Rights Reserved. ' 



'Licensed to 



ORG CORES 

get the system loader 

SUBTTL '<System Loader and associated routines>' 
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1948 

1948 
0100 



03600 *GET LOADER: 3 

12650 ; LOADER/ASM - LS-DOS 6.2 

12660 CORES DEFL $ 

12670 

12680 ; 

12690 ; 



12700 
0100 F21B 12710 

2806 4206 3806 
0108 4506 12720 

2306 3D06 7919 
0110 3506 12730 

8505 2D05 0305 
0118 0005 12740 

3005 2805 990 B 
0120 8203 12750 

8719 A807 8D07 
0128 8906 12760 

081B 0B1B F41A 
0130 7E19 12770 

7B19 0F1B A019 
0138 F51C 12780 

DA1C D71C EB1C 
0140 D01C 12790 

9319 AF19 AC19 
0148 F41A 12800 

F41A F41A F41A 
0150 B519 12810 

BC19 C019 C419 
0158 C819 12820 

CC19 D019 D419 
0160 D819 12830 

F419 DC19 E019 
0168 E419 12840 

E819 EC19 F019 
0170 9619 12850 

A619 8D19 8A19 
0178 9919 12860 

8614 8F15 B314 
0180 DE14 12870 

A214 3414 1315 
0188 9B14 12880 

7314 ADD 2114 
0190 3014 12890 

6015 EC14 3115 
0198 381B 12900 

1D1B 8119 8419 
01A0 9C19 12910 

1E1A 9019 B219 
01A8 F41A 12920 

D818 7418 BB18 
01B0 0318 12930 

7518 0A19 C906 
01B8 F41A 12940 

2719 E306 F41A 
01C0 E103 12950 

F606 C207 BD07 
01C8 4819 12960 

6A19 7708 6F19 
01 D0 9203 12970 



ORG SVCTAB$ 

Supervisor Call table - Page 5 



DW @IPL,@KEY,@DSP,@GET 

DW @PUT,(aCTL,(aPRT s (aWHERE 

DW @KBD s @KEYIN,(aDSPLY s @LOGER 

DW @LOGOT s @MSG s (aPRINT s @VDCTL 

DW (aPAUSE s (9PARAM s <aDATE 9 (aTIME 

DW @CHNIO s @ABORT s @EXIT s SVCERR 

DW @CMNDI s @CMNDR s (aERROR s @DEBUG 

DW (3CKTSK ,@ADTSK S @RMTSK ,@RPTSK 

DW 0KLTSK ,@CKDRV s @DODIR , 0RAMDIR 

DW SVCERR S SVCERR,SVCERR,SVCERR 

DW @DCSTAT s @SLCT s @DCINIT s (aDCRES 

DW @RSTOR,@STEPI s @SEEK,(3RSLCT 

DW (3RDHDR , (9RDSEC , 0VRSEC , 0RDTRK 

DW MFMT,@WRSEC,@WRSSC,(8WRTRK 

DW @RENAME,@REMOVE s @INIT s (aOPEN 

DW @CLOSE s @BKSP,(3CKEOF s @LOC 

DW @LOF,@PEOF,@POSN s @READ 

DW @REW,(aRREAD,(3RWRIT,(aSEEKSC 

DW @SKIP,@VER,(3WEOF,(3WRITE 

DW @LOAD,@RUN,(aFSPEC s (3FEXT 

DW @FNAME,@GTDCT,(3GTDCB,@GTMOD 

DW SVCERR,@RDSSC,@GATRD,@DIRRD 

DW @DIRWR,@GATWR,@MUL8,@MUL16 

DW SVCERR,<aDIV8,@DIV16,SVCERR 

DW @DECHEX s @HEXDEC,@HEX8,(aHEX16 

DW @HIGH$,@FLAGS,@BANK,@BREAK 

DW @SOUND,@CLS,@CKBRKC s SVCERR 



;0-3 

;4-7 

;8-ll 

;12-15 

;16-19 

;20-23 

;24-27 

;28-31 

;32-35 

;36-39 

;40-43 

;44-47 

;48-51 

;52-55 

;56-59 

;60-63 

;64-67 

;68-71 

;72-75 

;76-79 

;80-83 

;84-87 

;88-91 

;92-95 

;96-99 

;100-103 

;104-107 
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01 D8 
01 E0 
01 E8 
01F0 
01F8 
1948 



1948 
1949 
194A 
194C 
194F 
1950 
1952 
1953 
1954 
1955 
1957 
195A 
195D 
195E 
195F 
1960 
1962 
1965 
1968 
1969 

196A 
196E 

196F 
1970 
1973 
1974 
1977 
1978 

1979 
197A 



197B 
197D 
197E 
1980 
1981 
1983 
1984 
1986 



4505 5305 F41A 
F41A 12980 

F41A F41A F41A 
F41A 12990 

F41A F41A F41A 
F41A 13000 

F41A F41A F41A 
F41A 13010 

F41A F41A F41A 
F41A 13020 

F41A F41A F41A 

13030 

13040 ; 

13050 ; 

13060 ; 
7C 13070 @HIGH$ 
B5 13080 
2812 13090 
3A6C00 13100 
0F 13110 
3E2B 13120 
D8 13130 

04 13140 

05 13150 
200E 13160 
220E04 13170 
2A0E04 13180 GETHI 
C9 13190 

04 13200 GETHILO 

05 13210 
28F8 13220 
2A1E00 13230 

221 E00 13240 PUTLO 
AF 13250 
C9 13260 

13270 ; 
FD216A00 13280 



C9 

E5 

2A881C 

E3 

22881C 

El 

C9 

El 
E9 



3EA3 

EF 

3EB3 

EF 

3EC3 

EF 

3ED3 

EF 



13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 



0FLAGS 
©BREAK 



©WHERE 

9 

» 

©CMNDR 
©CMNDI 
(9FSPEC 
(3FEXT 



DW SVCERR 9 SVCERR 9 SVCERR 9 SVCERR ;108-111 

DW SVCERR,SVCERR,SVCERR 9 SVCERR ;112-115 

DW SVCERR,SVCERR S SVCERR 9 SVCERR ;116-119 

DW SVCERR,SVCERR 9 SVCERR 9 SVCERR ;120-123 

DW SVCERR 9 SVCERR 9 SVCERR 9 SVCERR ;124-127 
ORG CORES 
Routine to set or retrieve HIGH$/LOW$ 

;Test if put or get 



LD 

OR 

JR 

LD 

RRCA 

LD 

RET 

INC 

DEC 

JR 

LD 

LD 

RET 

INC 

DEC 

JR 

LD 

LD 

XOR 

RET 

LD 
RET 

PUSH 

LD 

EX 

LD 

POP 

RET 

POP 
JP 



A 9 H 

L 

Z 9 GETHIL0 

A 9 (CFLAG$) 

A 9 43 
C 



NZ 9 PUTLO 

(HIGH$) 9 HL 

HL 9 (HIGH$) 



Z,GETHI 
HL 9 (LOW$) 
(L0W$) 9 HL 
A 



IY 9 FLGTAB$ 



HL 

HL 9 (BRKVEC$) 

(SP),HL 

(BRKVEC$) 9 HL 

HL 



HL 
(HL) 



;Go if get 

;Is HIGH$ changeable? 

;Init SVC parm error 

;Back with NZ 

;Test for HIGH$/LOW$ 

;Go if LOWS 
;Set new HIGH$ 
;P/u the value & 
; ret with Z-flag 
;Test for HIGH$/LOW$ 



;P/u LOWS 
;Get LOWS 
;Set Z-flag 



;Save user vector 
;P/u current vector 
;Save current & get user 
; Stuff new vector 
;Recover old vector 



Code for these SVCs is in system overlays 

A,0A3H ; Interpret command & RET 
; Interpret a command 
;Parse a filespec 
;Optional default EXT 



LD 

RST 

LD 

RST 

LD 

RST 

LD 

RST 



A,0B3H 

40 

A,0C3H 

40 

A,0D3H 

40 
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1987 3EE3 


13510 0PARAM 


LD 


A,0E3H 


parameter scanner 


1989 EF 


13520 


RST 


40 




198A 3E94 


13530 @0PEN 


LD 


A,94H 


;Open a file 


198C EF 


13540 


RST 


40 




198D 3EA4 


13550 @INIT 


LD 


A,0A4H 


initialize a file 


198F EF 


13560 


RST 


40 




1990 3EB4 


13570 @GTOCB 


LD 


A,0B4H 


;Get a DCB vector 


1992 EF 


13580 


RST 


40 




1993 3EC4 


13590 0CKDRV 


LD 


A,0C4H 


; Drive available? 


1995 EF 


13600 


RST 


40 




1996 3EF4 


13610 ^RENAME 


LD 


A.0F4H 


; Rename a file 


1998 EF 


13620 


RST 


40 




1999 3E95 


13630 0CLOSE 


LD 


A 9 95H 


;Close a file 


199B EF 


13640 


RST 


40 




199C 3EA5 


13650 0FNAME 


LD 


A,0A5H 


;Recover filespec 


199E EF 


13660 


RST 


40 




199F C9 


13670 (9DBGHK 


RET 




;Init DEBUG off (NOP=on) 


19A0 F5 


13680 GDEBUG 


PUSH 


AF 




19A1 3E97 


13690 


LD 


A,97H 


; Enter system Debugger 


19A3 EF 


13700 


RST 


40 




19A4 DC 14 


13710 EXTDBG$ DW 


ORARET0 


;Hook for extended DEBUG 


19A6 3E9C 


13720 0REMOVE 


LD 


A,9CH 


;Remove a file/ device 


19A8 EF 


13730 


RST 


40 




19A9 3ECD 


13740 0DOKEY 


LD 


A,0CDH 


;D0 execution 


19AB EF 


13750 


RST 


40 




19AC 3E9E 


13760 0RAMDIR 


LD 


A,09EH 


; Directory data 


19AE EF 


13770 


RST 


40 




19AF 3EAE 


13780 0DODIR 


LD 


A,0AEH 


; Directory data 


19B1 EF 


13790 


RST 


40 




19B2 3EBE 


13800 0GTMOD 


LD 


A.0BEH 


;Get module address 


19 B4 EF 


13810 
13820 ; 


RST 


40 






13830 ; 


These 


SVCs handle th 


le disk primitive requests 




13840 ; 








19B5 AF 


13850 0DCSTAT 


XOR 


A 


;FDC status 


19B6 183E 


13860 


JR 


IOFUNC 




19 B8 3A2300 


13870 TAPDRV 


LD 


A,(LDRV$) 


;P/u drive # 


19BB 4F 


13880 


LD 


C,A 




19 BC 3E01 


13890 (9SLCT 


LD 


A,l 


;Select drive 


19BE 1836 


13900 


JR 


IOFUNC 




19C0 3E02 


13910 0DCINIT 


LD 


A,2 


;FDC init 


19C2 1832 


13920 


JR 


IOFUNC 




19C4 3E03 


13930 @DCRES 


LD 


A, 3 


;FDC reset 


19C6 182E 


13940 


JR 


IOFUNC 




19C8 3E04 


13950 (3RSTOR 


LD 


r\ £ T* 


;Restore to cyl 


19CA 182A 


13960 


JR 


IOFUNC 




19CC 3E05 


13970 (3STEPI 


LD 


A,5 


;Step in 1 cyl 


19CE 1826 


13980 


JR 


IOFUNC 




19 D0 3E06 


13990 0SEEK 


LD 


A,6 


;Seek a track/sector 


19D2 1822 


14000 


JR 


IOFUNC 




19 D4 3E07 


14010 (9RSLCT 


LD 


A,7 


;Re-select drive 


19D6 181E 


14020 


JR 


IOFUNC 




19D8 3E08 


14030 0RDHDR 


LD 


A s 8 




19DA 181A 


14040 


JR 


IOFUNC 




19DC 3E0A 


14050 (3VRSEC 


LD 


A, 10 


; Verify a sector 


19DE 1816 


14060 


JR 


IOFUNC 




19E0 3E0B 


14070 (3RDTRK 


LD 


A, 11 




19E2 1812 


14080 


JR 


IOFUNC 




19E4 3E0C 


14090 (9HDFMT 


LD 


A, 12 
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19E6 180E 


14100 


JR 


IOFUNC 




19E8 3E0D 


14110 0WRSEC 


LD 


A, 13 


;Write standard sector 


19EA 180A 


14120 


JR 


IOFUNC 




19EC 3E0E 


14130 0WRSSC 


LD 


A, 14 


; Write a system sector 


19EE 1806 


14140 


JR 


IOFUNC 




19F0 3E0F 


14150 (9WRTRK 


LD 


A, 15 


;Write a track 


19F2 1802 


14160 


JR 


IOFUNC 




19F4 3E09 


14170 (3RDSEC 
14180 ; 


LD 


A,9 


;Read a sector 


19F6 C5 


14190 IOFUNC 


PUSH 


BC 


;Save reg pair 


19F7 47 


14200 
14210 ; 


LD 


B,A 


;Xfer the function code 




14220 ; 


Bri ng 


up bank 






14230 ; 








19F8 C5 


14240 


PUSH 


BC 




19F9 AF 


14250 


XOR 


A 




19FA 47 


14260 


LD 


B,A 


;Set bank function 0, 


19FB 4F 


14270 


LD 


C,A 


; bank number 


19FC CD7708 


14280 


CALL 


@BANK 


;Bring up bank 


19FF Fl 


14290 


POP 


AF 


; Perform EX (SP),BC 


1A00 C5 


14300 


PUSH 


BC 




1A01 F5 


14310 


PUSH 


AF 




1A02 CI 


14320 
14330 ; 


POP 


BC 






14340 ; 


Continue disk I/O 


setup 




14350 ; 








1A03 79 


14360 


LD 


A,C 


;Xfer the drive code 


1A04 322300 


14370 


LD 


(LDRV$),A 




1A07 FDE5 


14380 


PUSH 


IY 




1A09 CD1E1A 


14390 


CALL 


0GTDCT 


;Get DCT address in IY 


1A0C 3E20 


14400 


LD 


A,20H 


;Set illegal drive # 


1A0E B7 


14410 


OR 


A 


; if drive disabled 


1A0F CD1C1A 


14420 


CALL 


GODOIO 




1A12 FDE1 


14430 
14440 ; 


POP 


IY 






14450 ; 


Bri ng 


back the old 


bank 




14460 ; 








1A14 CI 


14470 


POP 


BC 




1A15 F5 


14480 


PUSH 


AF 


;Save disk I/O retcod 


1A16 3E66 


14490 


LD 


A, 102 


;Set for (3BANK 


1A18 EF 


14500 
14510 


RST 


40 


;No need to ck for error 
; from @BANK 


1A19 Fl 


14520 


POP 


AF 




1A1A CI 


14530 


POP 


BC 




1A1B C9 


14540 
14550 ; 


RET 






1A1C FDE9 


14560 60D0I0 
14570 ; 


JP 


(IY) 




1A1E E5 


14580 0GTDCT 


PUSH 


HL 


;Get i/o routine addr 


1A1F CD341A 


14590 


CALL 


DCTFLDP 


; into IY 


1A22 E3 


14600 


EX 


(SP),HL 




1A23 FDE1 


14610 


POP 


IY 




1A25 C9 


14620 
14630 ; 


RET 








14640 ; 


Entry 


to get DCT+8 


of FCB (IX) drive spec 




14650 ; 








1A26 DD4E06 


14660 D(?FBYT8 
14670 ; 


LD 


CUX+6) 


;P/u drive 




14680 ; 


Entry 


to get DCT+8 


of Reg C drive spec 
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14690 


» 










14700 


DCTBYT8(a 






1A29 3E08 


14710 
14720 




LD 


A,8 






14730 


9 


Entry 


to get byte (Reg A) from DCT of Reg C drive 




14740 




C => 


logical drive specification 




14750 




A => 


relative byte requested from DCT 




14760 




A <= 


data at position 


requested 




14770 


> 








1A2B E5 


14780 (PDCTBYT 


PUSH 


HL 


;Save the register pair 


1A2C 67 


14790 




LD 


H S A 


;Xfer relative position 


1A2D CD341A 


14800 




CALL 


DCTFLD0 


;Get HL pointing to 


1A30 6F 


14810 




LD 


L,A 


; DCT position 


1A31 7E 


14820 




LD 


A S (HL) 


;Get the byte 


1A32 El 


14830 




POP 


HL 




1A33 C9 


14840 
14850 


9 


RET 








14860 


9 


Entry 


to get HL pointing to DCT byte Reg C s Reg A 




14870 


5 


C => 


logical drive number 




14880 


» 


A => 


relative byte in 


DCT requested 




14890 


S 


HL <= 


start of requested DCT for the drive 




14900 


9 


A <= 


low order pointer 


to relative byte request 




14910 


9 








1A34 79 


14920 


DCTFLDia 


LD 


A,C 


;Get drive spec & 


1A35 E607 


14930 




AND 


7 


; strip excess data 


1A37 87 


14940 




ADD 


A, A 


;Times 2 


1A38 6F 


14950 




LD 


L S A 


; & saved 


1A39 87 


14960 




ADD 


A,A 


;Times 4 


1A3A 87 


14970 




ADD 


A,A 


;Times 8 


1A3B 85 


14980 




ADD 


A,L 


;Times 10 


1A3C C670 


14990 




ADD 


A S 70H 


;Add DCT offset from 


1A3E 6F 


15000 




LD 


L,A 


; Point L to DCT low order 


1A3F 84 


15010 




ADD 


A,H 


;Add in rel pos desired 


1A40 2604 


15020 




LD 


H,DCT$<-8 


; Point H to DCT hi -order 


1A42 C9 


15030 
15040 


s 


RET 








15050 


1 


Process supervisory calls <0-127> 




15060 


9 








1A43 FE1A 


15070 


SVCUSER 


CP 


26 


;Check for TERROR 


1A45 2808 


15080 




JR 


Z,ERRSVC 


;Skip next if so 


1A47 320 D00 


15090 




LD 


(LSVC$),A 


;Store SVC request 


1A4A E3 


15100 




EX 


(SP),HL 


;P/u RET address 


1A4B 220 B00 


15110 




LD 


(SVCRET$),HL 


; and save it 


1A4E E3 


15120 




EX 


(SP) S HL 


;Restore RET address 


1A4F E5 


15130 


ERRSVC 


PUSH 


HL 


;Save HL 


1A50 07 


15140 




RLCA 




; Multiply by two 


1A51 2601 


15150 




LD 


H,SVCTAB$<-8 


;Base of table 


1A53 6F 


15160 




LD 


L,A 


;Set up the low order 


1A54 7E 


15170 




LD 


A,(HL) 


;P/u table entry 


1A55 2C 


15180 




INC 


L 




1A56 66 


15190 




LD 


H,(HL) 




1A57 6F 


15200 




LD 


L,A 




1A58 E3 


15210 




EX 


(SP),HL 


;P/u HL & stuff vector 


1A59 79 


15220 




LD 


A,C 


;Xfer for PUT type ops 


1A5A C9 


15230 
15240 


9 


RET 








15250 


9 


RST 28 vector - System 


& user SVCs 




15260 


9 








1A5B B7 


15270 


RST28 


OR 


A 


;Test if bit 7 set 
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1A5C F2431A 


15280 




JP 


P,SVCUSER 


;Jump on user SVC attempt 


1A5F E3 


15290 




EX 


(SP) S HL 


; Discard return addr & 


1A60 F5 


15300 




PUSH 


AF 


; save HL, AF 


1A61 219F19 


15310 




LD 


HL,@DBGHK 


;Set up DEBUG linkage 


1A64 7E 


15320 




LD 


A,(HL) 




1A65 32791A 


15330 




LD 


(SET@EXEC),A 




1A68 36C9 


15340 




LD 


(HL),0C9H 




1A6A Fl 


15350 




POP 


AF 


;Restore AF, HL 


1A6B El 


15360 




POP 


HL 




1A6C CD7F1A 


15370 


HKRES$ 


CALL 


CKMOD0 


;Get overlay if needed 


1A6F 3E00 


15380 




LD 


A,0 


;P/u new overlay # 


1A70 


15390 OVRLYOLD 


EQU $-1 




1A71 326900 


15400 




LD 


(OVRLY$),A 


; & update current 


1A74 CD0000 


15410 TRANSFR 


CALL 





;Traadr of SYSx 


1A77 F5 


15420 




PUSH 


AF 




1A78 3E00 


15430 




LD 


A,0 


;Set to C9 if EXEC only 


1A79 


15440 


SET(s>EXEC 


EQU $-1 




1A7A 329F19 


15450 




LD 


(@DBGHK),A 




1A7D Fl 


15460 




POP 


AF 




1A7E C9 


15470 
15480 


» 


RET 








15490 


s 


DOS command overlay rec 


juest 




15500 


» 








1A7F E5 


15510 


CKMOD0 


PUSH 


HL 




1A80 67 


15520 




LD 


H,A 


;Save command value 


1A81 78 


15530 




LD 


A,B 




1A82 32D21A 


15540' 




LD 


(EXOVR2+l),A 


;Set overlay # 


1A85 7C 


15550 




LD 


A,H 




1A86 F601 


15560 




OR 


1 


;Set for SYS6 & SYS7 


1A88 FE89 


15570 




CP 


89 H 


;Is it either? 


1A8A 7C 


15580 




LD 


A,H 


;Get back the correct # 


1A8B 2813 


15590 




JR 


Z,EXOVR 


;Sys6/7 req? Use ISAM! 


1A8D FE8A 


15600 




CP 


8AH 


;Sys8 also ISAM 


1A8F 280F 


15610 




JR 


Z, EXOVR 




1A91 3A6900 


15620 




LD 


A,(OVRLY$) 


;P/u current overlay 


1A94 AC 


15630 




XOR 


H 


;Ck if it's the one 


1A95 E60F 


15640 




AND 


0FH 


; we need to execute 


1A97 7C 


15650 




LD 


A,H 




1A98 32701A 


15660 




LD 


(OVRLYOLD), A 


; Update current tempy 


1A9B 21001E 


15670 




LD 


HL, OVERLAY 


;Init to SYSx entry 


1A9E 283A 


15680 
15690 




JR 


Z,EX0VR3 


;Go exec if resident 




15700 




Execute 


\ a system overl< 


iy 




15710 










1AA0 D5 


15720 


EXOVR 


PUSH 


DE 




1AA1 C5 


15730 




PUSH 


BC 




1AA2 E60F 


15740 




AND 


0FH 


;Get right nybble 


1AA4 CB5F 


15750 




BIT 


3,A 


;Check for SYS0-7 


1AA6 2802 


15760 




JR 


Z,EXOVRl 


; w/o changing carry 


1AA8 C618 


15770 




ADD 


A,18H 


;Adjust for sys8-15 


1AAA 329300 


15780 


EX0VR1 


LD 


(SFCB$+7),A 




1AAD 47 


15790 




LD 


B,A 


;Set DEC for directory 


1AAE 3E20 


15800 




LD 


A,20H 


;Set bit 5 of FCB+1 


1AB0 328 D00 


15810 




LD 


(SFCB$+1),A 




1AB3 ED62 


15820 




SBC 


HL,HL 


;Carry is clear here 


1AB5 229600 


15830 




LD 


(SFCB$+10),HL 


;Zero NRN 


1AB8 4C 


15840 




LD 


C,H 


; Init for drive 


1AB9 CDBB18 


15850 




CALL 


0DIRRD 


;Read dir entry 


1ABC 201A 


15860 




JR 


NZ,EXERR 


;Go if error 
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1ABE 7E 
1ABF E650 
1AC1 EE50 
1AC3 3E07 
1AC5 2011 
1AC7 7D 
1AC8 C616 
1ACA 6F 
1ACB 119A00 
1ACE CDE11A 
1AD1 0600 
1AD3 1E8C 
1AD5 CD561B 
1AD8 CI 
1AD9 Dl 
1ADA 22751A 
1ADD El 
1ADE C8 
1ADF 1816 



1AE1 CDEC1A 
1AE4 E61F 
1AE6 3C 
1AE7 12 
1AE8 13 
1AE9 AF 
IAEA 12 
1AEB 13 
1AEC CDEF1A 
1AEF 7E 
1AF0 12 
1AF1 23 
1AF2 13 
1AF3 C9 



1AF4 3E2B 
1AF6 00 
1AF7 E63F 
1AF9 21191B 
1AFC CDC207 
1AFF 21131B 
1B02 CD0005 
1B05 318003 
1B08 21FFFF 
1B0B 3E93 
1B0D EF 

1B0E El 
1B0F F5 
1B10 3E96 
1B12 EF 

1B13 45 



15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 
16420 
16430 
16440 
16450 



EX0VR2 

EXERR 
EXOVR3 



PAT1 



PAT1A 
PAT IB 



SVCERR 
SYSERR 



0ABORT 
@EXIT 



POPERR 
TERROR 



LD A,(HL) 

AND 50H 

XOR 50H 

LD A,7 

JR NZ, EXERR 

LD A,L 

ADD A, 22 

LD L S A 

LD DE S SFCB$+14 

CALL PAT1 

LD B s 

LD E,SFCB$&0FFH 

CALL LOADER 

POP BC 

POP DE 

LD (TRANSFR+1) S HL ; Stuff overlay entry pt 

POP HL 

RET Z 

JR SYSERR ;Go if I/O error on read 

Routine to calculate 1st two extents of SYS file 



;Was overlay purged? 
; or is it non- system? 

;Init "deleted error 

;Point to 1st extent 

;Extent field in FCB 
;Stuff 1st two extents 
;P/u ISAM # or zero 

;Read system overlay 



CALL 

AND 

INC 

LD 

INC 

XOR 

LD 

INC 

CALL 

LD 

LD 

INC 

INC 

RET 



PAT1A 

1FH 

A 

(DE) S A 

DE 

A 

(DE) 9 A 

DE 

PAT IB 

A,(HL) 

(DE) 9 A 

HL 

DE 



;Move first extent 
;Compute # of granules 

;And store in FCB 



;Move second extent 



System error display routine 

The NOP is provided so an intercept routine vector 
may be patched in during program development 



LD 

NOP 

AND 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

RST 

POP 
PUSH 
LD 
RST 



SYSERR$ DM 



A, 43 

3FH 

HL,ERRNUM 

@HEX8 

HL S SYSERR$ 

0LOGOT 

SP, STACKS 

HL,-1 

A S 93H 

40 

HL 
AF 

A,96H 
40 

'Error ' 



;SVC error 

;Strip excess bits 
;Pack error number 
; into message 

;Log the error & ABORT 
;reset stack 

;Exit to DOS 



;Pop extended error 

;Save the error code 

; Display the error number 
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72 72 6F 


72 20 








1B19 78 


16460 ERRNUM 


DM 


'xxH 1 9 CR 




78 48 0D 


i 
16470 ; 










16480 ; 


Routine to RUN a prog 


ram 




16490 ; 








IBID E5 


16500 man 


PUSH 


HL 


;Save register pair 


1B1E 217C00 


16510 


LD 


HL 9 SFLAG$ 




1B21 CBD6 


16520 


SET 


2 9 (HL) 


;Turn on RUN flag bit 


1B23 CD381B 


16530 


CALL 


(9LOAD 


;Load the program module 


1B26 E3 


16540 
16550 ; 


EX 


(SP) 9 HL 


;Put traadr on the stack 




16560 ; 


Note: 


The error code 


is set to NOT abort. Errors 




16570 ; 


wil 1 


be passed back 


to the calling module after 




16580 ; 


TERROR, Note that HL 


will contain the error #. 




16590 ; 








1B27 20E5 


16600 
16610 ; 


JR 


NZ s P0PERR 






16620 ; 


Place 


the INBUF$ pointer in register pair BC 




16630 ; 








1B29 012004 


16640 
16650 ; 


LD 


BC 9 INBUF$ 


;Reflect buffer pointer 




16660 ; 


Get TRAADR then test 


if we need to go to DEBUG 




16670 ; 








1B2C 3A7C00 


16680 


LD 


A 9 (SFLAG$) 




1B2F CB4F 


16690 


BIT 


1,A 


;Go to the program if 


1B31 C0 


16700 


RET 


NZ 


; its EXEC only access 


1B32 CB7F 


16710 


BIT 


7 9 A 


; else test if DEBUG 


IB 34 C 23000 


16720 


JP 


NZ s (s>RST30 


; is on & go to it 


1B37 C9 


16730 
16740 ; 


RET 




; else go to program 




16750 ; 


This » 


-outine LOADs a 


Load Module Format file 




16760 ; 








1B38 0600 


16770 @L0AD 


LD 


B s 


;LRL=256 


1B3A 217C00 


16780 


LD 


HL 9 SFLAG$ 




1B3D CBC6 


16790 


SET 


9 (HL) 


;Don' t set "fi le open" 


1B3F 21001D 


16800 


LD 


HL 9 SBUFF$ 


;Set buffer to system 


1B42 CD8A19 


16810 


CALL 


WEN 


;0pen the file 


1B45 D5 


16820 


PUSH 


DE 


;Save FCB pointer 


1B46 CC561B 


16830 


CALL 


Z 9 LOADER 


;Load if no OPEN error 


1B49 Dl 


16840 


POP 


DE 


;Restore FCB pointer 


1B4A C8 


16850 


RET 


Z 


;Back if no error 


1B4B 6F 


16860 


LD 


L 9 A 


;Xfer the error code 


1B4C 2600 


16870 


LD 


H 9 




1B4E F6C0 


16880 


OR 


0C0H 


;Set RETurn & abbrev 


1B50 FED8 


16890 


CP 


0D8H 


;Change "file not in dir" 


1B52 CJ 


16900 


RET 


NZ 


; to "program not found" 


1B53 C607 


16910 


ADD 


A 9 7 




1B55 C9 


16920 
16930 ; 


RET 








16940 ; 


System command file 1 


oader 




16950 ; 








1B56 78 


16960 LOADER 


LD 


A 9 B 


;Set overlay # (0 on non 


1B57 32B31B 


16970 


LD 


(LDR14+1) 9 A 


; SYStem f i le) 


1B5A D5 


16980 


PUSH 


DE 


;Save IX & xfer FCB to IX 


1B5B DDE3 


16990 


EX 


(SP),IX 




1B5D 11FF1D 


17000 


LD 


DE,SBUFF$+255 


;Init to end of buffer 


1B60 CD6F1B 


17010 


CALL 


LDR01 


;Do the load 


1B63 DDE1 


17020 


POP 


IX 


;Recover IX 
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1B6A CDD61B 
1B6D 10FB 



1B6F CDD61B 
1B72 FE01 
1B74 281F 
1B76 FE02 
1B78 2814 
1B7A FE04 
1B7C 282A 
1B7E FE08 
1B80 2828 
1B82 FE0A 
1B84 2804 
1B86 FE20 
1B88 38 DC 
1B8A 3E22 
1B8C B7 
1B8D C9 



1B8E CDD61B 
1B91 CDE81B 
1B94 C9 



1B95 CDD61B 
1B98 47 
1B99 CDE81B 
1B9C C0 
1B9D 05 
1B9E 05 
1B9F CDD61B 
1BA2 77 
1BA3 23 
1BA4 10F9 
1BA6 18C7 

1BA8 El 
1BA9 C9 



1BAA CDD61B 
1BAD 47 
1BAE CDD61B 
1BB1 05 
1BB2 FE00 
1BB4 20B4 



SYSTEM Files SYSRES - LS-DOS 6.2 Page 00036 
and associated routines 
RET 
Routine to ignore the LMF record 

;Get length of "comment" 



17030 

17040 ; 

17050 ; 

17060 ; 

17070 LDR05 

17080 

17090 LDR06 

17100 

17110 ; 

17120 ; 

17130 ; 

17140 LDR01 

17150 LDR02 

17160 

17170 

17180 LDR03 

17190 

17200 

17210 

17220 

17230 

17240 

17250 

17260 

17270 LDR04 

17280 

17290 

17300 ; 

17310 ; 

17320 ; 

17330 LDR07 

17340 

17350 

17360 ; 

17370 ; 

17380 ; 

17390 LDR08 

17400 

17410 

17420 

17430 

17440 

17450 LDR09 

17460 

17470 

17480 

17490 

17500 ; 

17510 LDR12 

17520 

17530 ; 

17540 ; 

17550 ; 

17560 LDR13 

17570 

17580 

17590 

17600 LDR14 

17610 



CALL 
LD 

CALL 
DJNZ 



LDR15 
B,A 
LDR15 
LDR06 



;Read & ignore that many 
; bytes then fall thru 



Routine to parse LMF record types 



CALL 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

LD 

OR 

RET 



LDR15 

1 

Z,LDR08 

2 

Z S LDR07 

4 

Z,LDR12 

8 

Z S LDR13 

10 

Z,LDR04 

20 H 

CLDR05 

A,22H 

A 



;Get record type 
;Start of block? 

; Start of TRAADR? 

;End of LIB member? 

;Begin ISAM table entry? 

;End of ISAM map? 

; Ignore all other control 

;Load file format err 



Grab transfer address 



CALL 
CALL 
RET 



LDR15 
GETADR 



Grab load block 



CALL 

LD 

CALL 

RET 

DEC 

DEC 

CALL 

LD 

INC 

DJNZ 

JR 

POP 
RET 



LDR15 
B A 

GETADR 
NZ 



LDR15 

(HL),A 

HL 

LDR09 

LDR01 

HL 



;Bypass 2nd X'02' 
;P/u transfer address 
;Ret Z or NZ 



;P/u block Ten 

;P/u load address 

;Adj length for adr 

;P/u block byte 

;Loop until block end 



Routine to check ISAM table match 

;Get record length 



CALL 

LD 

CALL 

DEC 

CP 

JR 



LDR15 

B,A 

LDR15 

B 



NZ,LDR06 



;Get ISAM number 
; & decrement counter 
;Either ISAM# or 
;Go if not a match 
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1BB6 CDE81B 


17620 




CALL 


GETADR 


; else get the TRAADR 


1BB9 E5 


17630 




PUSH 


HL 


; & save it 


1BBA CCE81B 


17640 




CALL 


Z, GETADR 


;Get the NRN for member 


1BBD 2027 


17650 




JR 


NZ, LODERR 




1BBF CDD61B 


17660 




CALL 


LDR15 


;Get the sector offset 


1BC2 5F 


17670 




LD 


E 9 A 


; Update pointer offset 


1BC3 C5 


17680 




PUSH 


BC - 




1BC4 44 


17690 




LD 


B,H 


;Xfer NRN position need 


1BC5 4D 


17700 




LD 


C,L 




1BC6 D5 


17710 




PUSH 


DE 


;Save buffer ptr offset 


1BC7 DDE5 


17720 




PUSH 


IX 




1BC9 Dl 


17730 




POP 


DE 


;P/u FCB into DE 


1BCA CD3414 


17740 




CALL 


0POSN 


;Position to ISAM rec 


1BCD Dl 


17750 




POP 


DE 


;Rcvr buffer ptr offset 


1BCE CI 


17760 




POP 


BC 




1BCF 2015 


17770 




JR 


NZ, LODERR 




1BD1 CDDB1B 


17780 




CALL 


LDR17 


;Read the sector 


1BD4 189C 


17790 
17800 


» 


JR 


LDR02 


;Now go read the member 




17810 


s 


Routine 


to get the next 


file byte 




17820 


9 








1BD6 1C 


17830 


LDR15 


INC 


E 


;Bump buf pointer 


1BD7 2802 


17840 




JR 


Z S LDR17 


;Read sector if needed 


1BD9 1A 


17850 


LDR16 


LD 


A S (DE) 


;P/U byte from buffer 


1BDA C9 


17860 




RET 






1BDB E5 


17870 


LDR17 


PUSH 


HL 


;Save regs 


1BDC D5 


17880 




PUSH 


DE 




1BDD C5 


17890 




PUSH 


BC 




1BDE CD7513 


17900 




CALL 


NXTSECT 


;Read next record 


1BE1 CI 


17910 




POP 


BC 


;Restore regs 


1BE2 Dl 


17920 




POP 


DE 




1BE3 El 


17930 




POP 


HL 




1BE4 28F3 


17940 




JR 


Z,LDR16 


; Bypass if no error 


1BE6 CI 


17950 


LODERR 


POP 


BC 


;Pop return address 


1BE7 C9 


17960 
17970 


9 


RET 








17980 


9 


Routine 


to get an addre 


ss field 




17990 


S 








1BE8 CDD61B 


18000 GETADR 


CALL 


LDR15 


;Get low order byte 


1BEB 6F 


18010 




LD 


L,A 




1BEC CDD61B 


18020 




CALL 


LDR15 


;Get hi order byte 


1BEF 67 


18030 




LD 


H,A 




1BF0 BF 


18040 




CP 


A 




1BF1 C9 


18050 
18060 


9 


RET 








18070 


> 


BOOT code brings back the ROM 




18080 


9 








4300 


18090 MOD3BUF 








1BF2 21FB03 


18100 @IPL 


LD 


HL s BOOTCOD 


;Code to toggle in ROM 


1BF5 110043 


18110 




LD 


DE,MOD3BUF 


; Buffer used by ROM 


1BF8 D5 


18120 




PUSH 


DE 


;This is return address 


1BF9 010500 


18130 




LD 


BC.BOOTLEN 




1BFC EDB0 


18140 




LDIR 




;Transfer boot code and 


1BFE C9 


18150 
18160 


9 


RET 




; jump to it 




18170 


9 


End of 


loader module 






18180 


9 








1BFF 


03610 




SUBTTL 


'<System front 


end & task processor^ 
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1BFF 



1BFF 03630 

18190 

18200 

18210 

18220 

18230 

18240 

004E E91C 18250 

E91C E91C E91C 

0056 E91C 18260 

E91C E91C E91C 

005E E91C 18270 

E91C 260B E91C 

1BFF 18280 

18290 

18300 

18310 

18320 

1BFF E3 18330 

1C00 22AF07 18340 

1C03 E3 18350 

1C04 E5 18360 

1C05 F5 18370 

1C06 217700 18380 

1C09 CBF6' 18390 

1C0B 210202 18400 

1C0E 7E 18410 

1C0F 3600 18420 

1C11 F5 18430 

1C12 217800 18440 

1C15 7E 18450 

1C16 F5 18460 

1C17 E68C 18470 

1C19 F603 18480 

1C1B 77 18490 

1C1C D384 18500 

00E0 18510 

1C1E DBE0 18520 

1C20 2F 18530 

1C21 213C00 18540 

1C24 77 18550 

1C25 2C 18560 

1C26 A6 18570 

1C27 2808 18580 

1C29 2C 18590 

1C2A IF 18600 

1C2B 381C 18610 

1C2D 2C 18620 

1C2E B7 18630 

1C2F 20F8 18640 

18650 

1C31 CDD607 18660 

1C34 202A 18670 

1C36 Fl 18680 

1C37 327800 18690 

1C3A D384 18700 

1C3C Fl 18710 

1C3D 320202 18720 

1C40 217700 18730 

1C43 CBB6 18740 



*GET TASKER:3 
TASKER/ASM - LS-DOS 6.2 



CORES 



RST380 



Interrupt task table, IM 1 

DEFL $ 

ORG TCB$ 

DW NOTASK , NOTASK , NOTASK , NOTASK 

DW NOTASK , NOTASK , NOTASK , NOTASK 

DW NOTASK , NOTASK , T YPTSK $ , NOTASK 

ORG CORES 

Model IV task processor 





EX 


(SP),HL 






LD 


(PCSAVE$),HL 


;Save for TRACE 




EX 


(SP),HL 






PUSH 


HL 


;Save HL for now 




PUSH 


AF 


;Save AF for now 




LD 


HL,NFLAG$ 


;Show the system we 




SET 


6,(HL) 


; are in the TASKER 




LD 


HL,L BANKS 


;P/U & save the current 




LD 


A,(HL) 


; logical bank # 




LD 


(HL),0 






PUSH 


AF 






LD 


HL,OPREG$ 


;Get current memory 




LD 


A,(HL) 






PUSH 


AF 


; config & save 




AND 


8CH 


;Strip bits 0, 1, 4-6 




OR 


3 


;Bring up regular 64K 




LD 


(HL),A 




INTLAT 


EQU 


0E0H 


;Get interrupt latch 




CPL 




;Mod IV is reverse 




LD 


HL,INTIM$ 


;Store state of int 




LD 


(HL),A 






INC 


L 


;Advance to int mask 




AND 


(HL) 


;Mask the latch bits 




JR 


Z, TSTBRK 


;Go if nothing interptd 


NXTVCT 


INC 


L 


;Ck on INTVC$ 




RRA 




;Ck if device interrupted 




JR 


CACTVTSK 




NXTMSK 


INC 


L 


;Ck all 8 bits of mask 




OR 


A 


;When fin, ck overhead 




JR 


NZ, NXTVCT 


; task routine 


TSTBRK 


CALL 


KCK@ 


;Test <BREAK>, <SHIFT> 




JR 


NZ, BREAK? 


;Go if break 


TSKEXIT 


POP 


AF 


;Get previous mem config 




LD 


(OPREG$) s A 


; & restore to it 




POP 


AF 






LD 


(LBANK$),A 






LD 


HL,NFLAG$ 


;Now leaving the TASKER 




RES 


6,(HL) 


; show the system 
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1C45 Fl 


18750 


POP 


AF 


;Restore previous regs 


1C46 El 


18760 


POP 


HL 




1C47 FB 


18770 


EI 






1C48 C9 


18780 RETINST RET 








18790 


• 








18800 










18810 


; Found 


active INTVC$ 






18820 








1C49 F5 


18830 ACTVTSK PUSH 


AF 


;Save the regs 


1C4A C5 


18840 


PUSH 


BC 




1C4B D5 


18850 


PUSH 


DE 




1C4C E5 


18860 


PUSH 


HL 




1C4D DDE5 


18870 


PUSH 


IX 




1C4F 11581C 


18880 


LD 


DE.POPREGS 


;Stack return vector 


1C52 D5 


18890 


PUSH 


DE 




1C53 5E 


18900 


LD 


E S (HL) 


;P/u INTVC pointer vector 


1C54 2C 


18910 


INC 


L 




1C55 56 


18920 


LD 


D,(HL) 




1C56 EB 


18930 


EX 


DE,HL 


; Shi ft it to HL 


1C57 E9 


18940 
18950 


JP 


(HL) 


;Go to service routine 




18960 


, Register restoral after < 


service routine 




18970 








1C58 DDE1 


18980 F 


'OPREGS POP 


IX 




1C5A El 


18990 


POP 


HL 




1C5B Dl 


19000 


POP 


DE 




1C5C CI 


19010 


POP 


BC 




1C5D Fl 


19020 


POP 


AF 




1C5E 18CD 


19030 
19040 


JR 


NXTMSK 


;Loop to next mask bit 




19050 , 


BREAK 


key detected 






19060 , 








1C60 3008 


19070 E 


JREAK? JR 


NC,GOTBRK 


;Go if <BREAK> only 


1C62 C5 


19080 


PUSH 


BC 


;Was <SHIFT-BREAK> 


1C63 F3 


19090 


DI 






1C64 CDB819 


19100 


CALL 


TAPDRV 


, Res elect drive 


1C67 CI 


19110 


POP 


BC 




1C68 18CC 


19120 
19130 s 


JR 


TSKEXIT 






19140 , 


BREAK 


during tasking - er 


iter DEBUG? - user BREAK? 




19150 ; 








1C6A 3A7C00 


19160 C 


JOTBRK LD 


A,(SFLAG$) 


, Check if BREAK key is 


1C6D E610 


19170 


AND 


10H 


, disabled to inhibit 


1C6F 20C5 


19180 


JR 


NZ, TSKEXIT 


, DEBUG or BREAK vector 


1C71 219F19 


19190 


LD 


HL,(3DBGHK 


.Merge DEBUG flag & 


1C74 B6 


19200 


OR 


(HL) 


, hook (X'00' or X*C9*) 


1C75 36C9 


19210 


LD 


(HL),0C9H 


Turn off DEBUG 


1C77 23 


19220 


INC 


HL 


Point to 0DEBUG vector & 


1C78 2814 


19230 
19240 ; 


JR 


Z,EXITBRK 


go if DEBUG is active 


1C7A 3AB007 


19250 


LD 


A,(PCSAVE$+1) ; 


Don't allow vectored bre 


1C7D FE24 


19260 


CP 


MAXC0R$<-8 ; 


if old PC is in SYSRES 


1C7F 38B5 


19270 


JR 


C, TSKEXIT 




1C81 210F04 


19280 


LD 


HL,HIGH$+1 


or if old PC is 


1C84 BE 


19290 


CP 


(HL) ; 


above HIGH$ 


1C85 30AF 


19300 


JR 


NC, TSKEXIT 




1C87 210000 


19310 


LD 


HL,0 ; 


else ck if BREAK is 


1C88 


19320 E 


SRKVEC$ EQU 


$-2 




1C8A 7C 


19330 


LD 


A,H ; 


to be trapped by user 
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1C8B B5 


19340 


OR 


L 




1C8C 28A8 


19350 


JR 


Z,TSKEXIT 




1C8E Fl 


19360 EXITBRK 


POP 


AF 


;Discard old mem config 


1C8F Fl 


19370 


POP 


AF 


;Restore reg AF 


1C90 Fl 


19380 . 


POP 


AF 




1C91 E3 


19390 


EX 


(SP) 9 HL 


;P/u HL & stack vector 


1C92 FB 


19400 


EI 






1C93 C9 


19410 
19420 ; 


RET 




;To DEBUG or BREAK vecto 




19430 ; 


Real T 


ime Clock interru 


pt processor 




19440 ; 








1C94 


19450 RTCPROC 


EQU 


$ 




1C94 DBEC 


19460 






;C!ear the RTC interrupt 


1C96 3E0B 


19470 


LD 


A, 11 


;Task 11 executes every 


1C98 CDBB1C 


19480 


CALL 


RTCTASK 


; RTC interrupt 


1C9B 212B00 


19490 


LD 


HL 9 TIMSL$ 




1C9E CB06 


19500 


RLC 


(HL) 


;Ck on time slice 


1CA0 D0 


19510 


RET 


NC 


;Ignore if nothing 


1CA1 111307 


19520 


LD 


DE,TIMTSK$ 


; on this interrupt 


1CA4 D5 


19530 


PUSH 


DE 


; else init for docker 


1CA5 3E08 


19540 


LD 


A, 8 


;Task 8 at INT/2 if fast 


1CA7 CDBB1C 


19550 


CALL 


RTCTASK 




1CAA 3E09 


19560 


LD 


A s 9 


;Task 9 at INT/2 if fast 


1CAC CDBB1C 


19570 


CALL 


RTCTASK 




1CAF 3E0A 


19580 


LD 


A, 10 


;Task 10 at INT/2 if fas 


1CB1 CDBB1C 


19590 


CALL 


RTCTASK 




1CB4 212C00 


19600 


LD 


HL, TIMERS 


;Bump the timer at INT/2 


1CB7 34 


19610 


INC 


(HL) 




1CB8 7E 


19620 


LD 


A 5 (HL) 


;P/u the heart beat 


1CB9 E607 


19630 


AND 


7 


;For this interrupt, 


1CBB 07 


19640 RTCTASK RLCA 




; consider 0-7 only 


1CBC C64E 


19650 


ADD 


A,TCB$&0FFH 


;Add offset to table 


1CBE 6F 


19660 


LD 


L,A 




1CBF 2600 


19670 


LD 


H,TCB$<-8 




1CC1 22EC1C 


19680 


LD 


((3RPTSK+1),HL 




1CC4 5E 


19690 


LD 


E S (HL) 


;P/u task vector addr 


1CC5 2C 


19700 


INC 


L 




1CC6 56 


19710 


LD 


D S (HL) 




1CC7 D5 


19720 


PUSH 


DE 




1CC8 DDE1 


19730 


POP 


IX 


;Also to IX 


1CCA EB 


19740 


EX 


DE,HL 




1CCB 5E 


19750 


LD 


E,(HL) 


;P/u task entry point 


1CCC 23 


19760 


INC 


HL 




1CCD 56 


19770 


LD 


D,(HL) 




1CCE EB 


19780 


EX 


DE,HL 




1CCF E9 


19790 
19800 ; 


JP 


(HL) 


;Go to task 


1CD0 Dl 


19810 0KLTSK 


POP 


DE 


;Remove ret 


1CD1 3AEC1C 


19820 


LD 


A,((3RPTSK+1) 


;Pt to task tbl entry 


1CD4 D64E 


19830 


SUB 


TCBS&0FFH 




1CD6 0F 


19840 
19850 ; 


RRCA 




; of last task 


1CD7 11E91C 


19860 0RMTSK 
19870 ; 


LD 


DE , NOTASK 


;Remove entry 


1CDA FE0C 


19880 @ADTSK 


CP 


12 


;Too large a task? 


1CDC D0 


19890 


RET 


NC 


;Ret if too big else 


1CDD 07 


19900 


RLCA 




; add to task table 


1CDE C64E 


19910 


ADD 


A,TCB$&0FFH 


;Add the offset 


1CE0 6F 


19920 


LD 


L,A 


;Estab ptr to vector 
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1CE1 2600 


19930 




LD 


H 9 TCB$<-8 




1CE3 F3 


19940 


CHGTASK 


DI 






1CE4 73 


19950 




LD 


(HL),E 


;Vector adr to ptr tbl 


1CE5 2C 


19960 




INC 


L 




1CE6 72 


19970 




LD 


(HL),D 




1CE7 FB 


19980 




EI 






1CE8 C9 


19990 
20000 


» 


RET 






1CE9 E81C 


20010 
20020 


NOTASK 

5 


DW 


$-1 


;Current task vector 


1CEB 210000 


20030 @RPTSK 


LD 


HL,0 


;P/u last task done 


1CEE 5E 


20040 




LD 


E,(HL) 


;P/u task vector addr 


1CEF 23 


20050 




INC 


HL 




1CF0 56 


20060 




LD 


D,(HL) 




1CF1 EB 


20070 




EX 


DE,HL 




1CF2 Dl 


20080 




POP 


DE 


;Pop ret addr 


1CF3 18EE 


20090 
20100 


S 


JR 


CHGTASK 






20110 


S 


Routine 


to check if task slot active 




20120 


» 








1CF5 07 


20130 0CKTSK 


RLCA 




;Task number * 2 


1CF6 C64F 


20140 




ADD 


A,TCB$&0FFH+1 


; Index into task table 


1CF8 6F 


20150 




LD 


L,A 




1CF9 2600 


20160 




LD 


H 9 TCB$<-8 




1CFB 3E1C 


20170 




LD 


A,N0TASK<-8 


;Check match of high 


1CFD BE 


20180 




CP 


(HL) 


; order only 


1CFE C9 


20190 




RET 




; Z or NZ result 




03640 




IFGT 


$,1D00H+START$ 






03650 




ERR 


'SYSRES memory < 


Dverf low 




03660 




ENDIF 






1CFF 


03670 


CORES 


DEFL 


$ 




1CFF 00 


03680 




DC 


1D00H-CORE$,0 




1CFF 


03690 




ORG 


CORES 




1D00 


03700 




ORG 


1D00H+START$ 




1DJ90 


03710 


SBUFF$ 


EQU 


$ 




0100 


03720 




DS 


256 


;Page disk I/O buffer 


2300 


03730 


DIRBUF$ EQU 


MAXCOR$-256 


;Another file buffer 




03740 


» 










03750 


9 


get the 


system initialization module 




03760 


» 








1E00 


03770 OVERLAY EQU 


$ 




1E00 


03780 




SUBTTL 


'<System initia' 


lization routinesV 
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1E00 


03800 *GET 


SYSINIT4:3 






20200 ;SYSINIT4/ASM - 


- LS-DOS 6.2 






20210 ; 










20220 ; 


This is the initializat 


ion part of SYSRES 




20230 ; 








00F1 


20240 TRKREG 






;FDC track register 


F401 


20250 KB1 






; Keyboard row 1 


F460 


20260 KB67 






; Keyboard rows 6&7 


F440 


20270 KB7 






; Keyboard row 7 


001 D 


20280 BOL 
20290 ; 






beginning of line 


1E00 


20300 
20310 ; 


ORG 


1E00H+START$ 




1E00 F3 


20320 


DI 






1E01 21E90F 


20330 


LD 


HL S (9RSTNMI 


;Reset NMI vector to 


1E04 226700 


20340 


LD 


(@NMI+1),HL 


; SYSRES' s needs 


1E07 211004 


20350 


LD 


HL S PAKNAM$ 


;Pt to pack name 


1E0A 11BEF8 


20360 


LD 


DE s 2*80+CRTBGN$+30 


1E0D 010800 


20370 


LD 


BC,8 




1E10 EDB0 


20380 


LDIR 




;move pack name to crt 


1E12 0E08 


20390 


LD 


C 9 8 


;B contains already 


1E14 13 


20400 


INC 


DE 


;Leave 2 spaces 


1E15 13 


20410 


INC 


DE 




1E16 EDB0 


20420 
20430 ; 


LDIR 




;Move pack date to crt 




20440 ; 


Initia 


lization routines 






20450 ; 








1E18 AF 


20460 


XOR 


A 


;Clear out stack area 


1E19 218103 


20470 


LD 


HL S STACK $+1 


;Stack start +1 


1E1C 2D 


20480 CLRLOOP 


DEC 


L 


;Move down a byte 


1E1D 77 


20490 


LD 


(HL),A 


;Now loop and fill 


1E1E 20FC 


20500 
20510 ; 


JR 


NZ, CLRLOOP 


; and fill with 0's 


1E20 ED56 


20520 


IM 


1 




1E22 318003 


20530 


LD 


SP, STACKS 


;Set the stack area 


1E25 AF 


20540 


XOR 


A 




1E26 320202 


20550 


LD 


(LBANK$),A 


;Set logical bank # 


1E29 D3E4 


20560 
20570 ; 






;Disable INTRQ & DRQ 


1E2B 213802 


20580 


LD 


HL,S1DCB$ 




1E2E 77 


20590 ZERDCB 


LD 


(HL),A 


;Zero spare deb area 


1E2F 2C 


20600 


INC 


L 




1E30 20FC 


20610 
20620 ; 


JR 


NZ.ZERDCB 




1E32 3A7600 


20630 


LD 


A,(MODOUT$) 


;Set hi -speed 


1E35 D3EC 


20640 






; and external bus 


1E37 3A8000 


20650 


LD 


A S (WRINT$) 




1E3A D3E0 


20660 






;Enable RTC interrupts 


1E3C 3A7800 


20670 


LD 


A,(OPREG$) 


;Set memory configuratio 


1E3F 47 


20680 


LD 


B S A 




1E40 3EA7 


20690 


LD 


A,0A7H 


;Value for AUX/RAM 


1E42 0E84 


20700 


LD 


C0OPREG 


;Set the memory mgt port 


1E44 ED41 


20710 






; Bring up reg RAM 


1E46 21FFFF 


20720 


LD 


HL,-1 


;Ck for extended RAM 


1E49 220E04 


20730 


LD 


(HIGH$),HL 




1E4C 221C00 


20740 


LD 


(PHIGH$),HL 






20750 ; 


Check 


the BANKS 




1E4F 56 


20760 


LD 


D,(HL) 


;Save what's in RAM 


1E50 3655 


20770 


LD 


(HL),55H 


; Stuff in reg RAM 


1E52 ED79 


20780 






; Switch in alt RAM 
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1E54 5E 


20790 


LD 


E,(HL) 


;Save the byte there 


1E55 11 


20800 


LD 


(HL) 9 A 


; Stuff alt RAM 


1E56 ED41 


20810 






; Switch to reg RAM 


1E58 BE 


20820 


CP 


(HL) 


;See what's there now 


1E59 72 


20830 


LD 


(HL),D 


;Restore original value 


1E5A ED79 


20840 






;Back to alt RAM 


1E5C 73 


20850 


LD 


(HL) 9 E 


;Restore original byte 


1E5D ED41 


20860 






;Back to reg RAM 


1E5F 3EFE 


20870 


LD 


A 9 0FEH 


; Init BAR$ for bank-0 


1E61 2802 


20880 


JR 


Z,$+4 


;Bypass if only 64K 


1E63 3EF8 


20890 


LD 


A 9 0F8H 


; Init BAR$ for bank 0-2 


1E65 320102 


20900 


LD 


(BAR$) 9 A 


;Load Bank Avail RAM 


1E68 320002 


20910 


LD 


(BUR$) 9 A 


;Load Bank Used RAM 


1E6B 3A6F00 


20920 


LD 


A,(FEMSK$) 


;P/u port FE mask 


1E6E D3FE 


20930 






; & set it 


1E70 00 


20940 


DC 


3 9 


; Space for a JUMP 


00 00 


20950 ; 










20960 ; 


Update 


DCT$ info for 


SYSTEM drive 




20970 ; 








1E73 3A9D43 


20980 


LD 


A 9 (B00TST$) 


;P/u Boot Step rate 


1E76 E603 


20990 


AND 


3 


;Strip all but it 


1E78 47 


21000 


LD 


B 9 A 


;Save tempy 


1E79 217304 


21010 


LD 


HL 9 DCT$+3 


;Pt to DCT step 


1E7C 7E 


21020 


LD 


A 9 (HL) 


;P/u DCT Step 


1E7D E6FC 


21030 


AND 


0FCH 


;Strip step rate 


1E7F B0 


21040 


OR 


B 


;Merge in Boot step 


1E80 77 


21050 


LD 


(HL) 9 A 


; Update DCT 


1E81 DBF1 


21060 


IN 


A 9 (TRKREG) 


;Update DCT with current 


1E83 327504 


21070 
21080 ; 


LD 


(DCT$+5) 9 A 


; track posn of head 


1E86 110802 


21090 


LD 


DE 9 KIDCB$ 


;Flush type 9 init ptrs. 


1E89 3E03 


21100 


LD 


A 9 3 




1E8B CD2306 


21110 


CALL 


@CTL 




1E8E FB 


21120 
21130 ; 


EI 




interrupts on 




21140 ; 


P/u CONFIG status & 


set ZERO byte 




21150 ; 








1E8F 210104 


21160 


LD 


HL 9 ZER0$ 




1E92 7E 


21170 


LD 


A,(HL) 


;set to NOP if SYSGEN'd 


1E93 3600 


21180 


LD 


(HL) 9 


;Make always zero byte 


1E95 F5 


21190 
21200 ; 


PUSH 


AF 


;save SYSGEN flag 




21210 ; 


Check 


if date prompt 


is to be suppressed 




21220 ; 








1E96 3AC204 


21230 


LD 


A 9 (DTPMT$) 


;No prompt for date? 


1E99 B7 


21240 
21250 ; 


OR 


A 






21260 ; 


Check 


on currency of 


date 




21270 ; 








1E9A 213300 


21280 


LD 


HL, DATES 


; Point to Year 


1E9D 4E 


21290 


LD 


C,(HL) 


; & save in reg C 


1E9E 3600 


21300 


LD 


(HL),0 


; while resetting to zero 


1EA0 23 


21310 


INC 


HL 


;Bump to day 


1EA1 46 


21320 


LD 


B 9 (HL) 


; & save in reg B 


1EA2 3600 


21330 


LD 


(HL) 9 


; while resetting to zero 


1EA4 23 


21340 


INC 


HL 


;Bump to Month 


1EA5 7E 


21350 


LD 


A,(HL) 


; & save in Reg A 


1EA6 3600 


21360 


LD 


(HL) 9 


; while resetting to zero 
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1EA8 C2991F 


21370 


JP 


NZ,TIMIN 


;Ck time if DATEOFF 


1EAB 2EFF 


21380 


LD 


L S CFGFCB$+3U0FFH ;Reset pointer 




21390 ; 










21400 


IF 


@INTL 






21410 


LD 


(HL),B 


; Stuff day 




21420 


DEC 


HL 






21430 


LD 


(HL),A 


; Stuff month 




21440 


ELSE 






1EAD 77 


21450 


LD 


(HL),A 


; Stuff month 


1EAE 2B 


21460 


DEC 


HL 




1EAF 70 


21470 
21480 
21490 ; 


LD 
ENDIF 


(HL),B 


; Stuff day 


1EB0 2B 


21500 


DEC 


HL 




1EB1 71 


21510 


LD 


(HL),C 


; Stuff Year 


1EB2 EB 


21520 


EX 


DE 9 HL 


; & point DE to CFGFCB$+29 


1EB3 3D 


21530 


DEC 


A 


;Check for month range <1-12> 


1EB4 FE0C 


21540 


CP 


12 


;0K if 0-11 now 


1EB6 380E 


21550 
21560 ; 


JR 


C.DATIN1 




1EB8 211B15 


21570 DAT IN 


LD 


HL,21<8!27 


;Set video row, col 


1EBB 111E21 


21580 


LD 


DE S DATEPR 


;DATE? question 


1EBE 013008 


21590 


LD 


BC,8<+8!'0' 


;Set buf len & char 


1EC1 CDAE20 


21600 


CALL 


GETPARM 


;Get response 


1EC4 30F2 


21610 


JR 


NC.DATIN 


;Jump on format error 


1EC6 1A 


21620 DAT INI 


LD 


A,(DE) 


;Is year a leap year? 


1EC7 4F 


21630 


LD 


C,A 


;Save year for later 


1EC8 D650 


21640 


SUB 


80 


;Reduce for range test 


1ECA FE08 


21650 


CP 


8 




1ECC 30EA 


21660 


JR 


NC.DATIN 




1ECE E603 


21670 


AND 


3 




1ED0 3E1C 


21680 


LD 


A, 28 


; Ini t February 


1ED2 2006 


21690 


JR 


NZ,NOTLEAP 




1ED4 213700 


21700 


LD 


HL, DATE $+3+1 


;Set leap flag 


1ED7 CBFE 


21710 


SET 


7,(HL) 




1ED9 3C 


21720 


INC 


A 


;Feb to 29 days 


1EDA 210304 


21730 NOTLEAF 


■ LD 


HL,MAXDAY$+2 


;Set Feb max day # 


1EDD 77 


21740 
21750 ; 


LD 


(HL),A 






21760 


IF 


@INTL 






21770 


NOP 




;Keep same length 




21780 


ELSE 






1EDE 13 


21790 
21800 


INC 
ENDIF 


DE 


;Bump to DAY 


1EDF 13 


21810 


INC 


DE 


;Bump to month & get it 


1EE0 1A 


21820 


LD 


A,(DE) 




1EE1 47 


21830 


LD 


B,A 


;Save month in reg B 


1EE2 3D 


21840 


DEC 


A 


;Range check 


1EE3 FE0C 


21850 


CP 


12 




1EE5 30D1 


21860 


JR 


NC,DATIN 


;Go if or >12 


1EE7 2B 


21870 


DEC 


HL 


; Point to Jan entry 


1EE8 85 


21880 


ADD 


A,L 


; Index the month 


1EE9 6F 


21890 
21900 ; 


LD 


UA 






21910 


IF 


0INTL 






21920 


INC 


DE 


; Point to day 




21930 


ELSE 






1EEA IB 


21940 
21950 


DEC 
ENDIF 


DE 


; Point to day 
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21960 ; 








1EEB 1A 


21970 


LD 


A,(DE) 


;P/u day entry 


1EEC 3D 


21980 


DEC 


A 


;Reduce for test (0->FF) 


1EED BE 


21990 


CP 


(HL) 




IEEE 30C8 


22000 
22010 ; 


JR 


NC,DATIN 


;Go if too large (or 0) 




22020 ; 


Range 


checks OK - move 


into DATES 




22030 ; 








1EF0 213500 


22040 


LD 


HL s DATE$+2 




1EF3 3C 


22050 


INC 


A 


Compensate for DEC A 


1EF4 70 


22060 


LD 


(HL),B 


; Stuff month 


1EF5 2D 


22070 


DEC 


L 




1EF6 77 


22080 


LD 


(HL),A 


; Stuff day 


1EF7 2D 


22090 


DEC 


L 




1EF8 71 


22100 
22110 ; 


LD 


(HL),C 


; Stuff year 




22120 ; 


Date is in DATE$ - display it 




22130 ; 








1EF9 79 


22140 


LD 


A S C 




1EFA F5 


22150 


PUSH 


AF 


; & save it for later 


1EFB E603 


22160 


AND 


3 


;Check on leap year 


1EFD 210304 


22170 


LD 


HL,MAXDAY$+2 


;Init and adjust Feb 


1F00 361C 


22180 


LD 


(HL) 9 28 


; as required 


1F02 2001 


22190 


JR 


NZ s $+3 




1F04 34 


22200 


INC 


(HL) 


;Bump to 29 


1F05 3A3500 


22210 


LD 


A s (DATE$+2) 


;P/u month & xfer to B 


1F08 47 


22220 


LD 


B,A 




1F09 3A3400 


22230 
22240 ; 


LD 


A,(DATE$+1) 


;P/u day of month 




22250 ; 


Comput 


e day of year and 


day of week 




22260 ; 








1F0C 6F 


22270 


LD 


L,A 


; Start off with days 


1F0D 2600 


22280 


LD 


H,0 


; in this month 


1F0F 110104 


22290 


LD 


DE,MAXDAY$ 




1F12 1A 


22300 DAYLP 


LD 


A,(DE) 




1F13 85 


22310 


ADD 


A,L 


;8 bit add to 16 bit 


1F14 6F 


22320 


LD 


L,A 




1F15 8C 


22330 


ADC 


A,H 


;Add in hi order & carry 


1F16 95 


22340 


SUB 


L 


; Subtract off lo order 


1F17 67 


22350 


LD 


H S A 


; Update hi order 


1F18 13 


22360 


INC 


DE 




1F19 10F7 


22370 


DJNZ 


DAYLP 




1F1B EB 


22380 


EX 


DE,HL 


;Move day of year to DE 


1F1C 213600 


22390 


LD 


HL,DATE$+3 


; and store 


1F1F 73 


22400 


LD 


(HL),E 




1F20 23 


22410 


INC 


HL 




1F21 7A 


22420 


LD 


A,D 


;Get bit "8" 


1F22 B6 


22430 


OR 


(HL) 


; and OR it in 


1F23 77 


22440 


LD 


(HL) S A 


;Then put it back 


1F24 EB 


22450 


EX 


DE,HL 


;Get DOY back to HL 


1F25 Fl 


22460 


POP 


AF 


;Pop the year & mask 


1F26 E607 


22470 


AND 


7 


;Compute day of week 


1F28 5F 


22480 


LD 


E,A 


; offset 


1F29 C603 


22490 


ADD 


A, 3 




1F2B 0F 


22500 


RRCA 






1F2C 0F 


22510 


RRCA 






1F2D E603 


22520 


AND 


3 




1F2F 83 


22530 


ADD 


A,E 




1F30 5F 


22540 


LD 


tl 5 r\ 


;And add it in 
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1F31 1600 


22550 


LD 


D s 


;Add into HL 


1F33 19 


22560 


ADD 


HL,DE 




1F34 23 


22570 


INC 


HL 


;To start in right place 


IF 35 0E07 


22580 


LD 


C 9 7 


;Now divide by 7 (B=0) 


1F37 ED42 


22590 DIV7 


SBC 


HL,BC 


; Subtract weeks (7-days) 


1F39 30FC 


22600 


JR 


NC,DIV7 


; until under flow 


1F3B 7D 


22610 


LD 


A,L 




1F3C C608 


22620 


ADD 


A 9 8 


;Add back to get 1-7 


1F3E 47 


22630 


LD 


B,A 


;Save in reg B 


1F3F 07 


22640 


RLCA 




;Shift to bits 1-3 


1F40 4F 


22650 


LD 


C,A 


;Save tempy 


1F41 213700 


22660 


LD 


HL, DATE $+3+1 




1F44 7E 


22670 


LD 


A,(HL) 


;Pack into field 


1F45 E6F1 


22680 


AND 


0F1H 




1F47 Bl 


22690 


OR 


C 




1F48 77 


22700 


LD 


(HL) S A 




1F49 C5 


22710 


PUSH 


BC 




1F4A 211B15 


22720 


LD 


HL,21<8!27 


;Set video row,col 


1F4D 0603 


22730 


LD 


B,3 


;Set function code 3 


1F4F CD990B 


22740 


CALL 


(3VDCTL 


; to position cursor 


1F52 CI 


22750 


POP 


BC 




1F53 21C704 


22760 


LD 


HL 9 DAYTBL$ 




1F56 CDFF20 


22770 


CALL 


SPACE4 


;Write out the DAY 


1F59 3E2C 


22780 


LD 


A • ' 




1F5B CD4206 


22790 


CALL 


@DSP 




1F5E 3E20 


22800 


LD 


A,' ' 




1F60 CD4206 


22810 


CALL 


@DSP 




1F63 3A3500 


22820 


LD 


A, (DATE $+2) 


;P/u month number 


1F66 47 


22830 


LD 


B,A 




1F67 2EDC 


22840 


LD 


L,MONTBL$&0FFH 


;Reset HL for month tabl 


1F69 CD0721 


22850 


CALL 


DSPMDY 


;Write out the month nam 


1F6C 3E20 


22860 


LD 


A,' ' 




1F6E CD4206 


22870 


CALL 


@DSP 




IF 71 3A3400 


22880 


LD 


A,(DATE$+1) 


;P/u day 


1F74 05 


22890 


DEC 


B 


;From to X'FF' 


1F75 04 


22900 DIV10 


INC 


B 


;Divide by 10 


IF 76 D60A 


22910 


SUB 


10 


; with quotient in B 


1F78 30FB 


22920 


JR 


NC,DIV10 




1F7A F5 


22930 


PUSH 


AF 


;Save remainder (-10) 


1F7B 78 


22940 


LD 


A,B 


;P/u quotient 


1F7C C630 


22950 


ADD 


A,'0' 


;Change to ASCII 


1F7E FE30 


22960 


CP 


'0« 


;Zero? 


1F80 C44206 


22970 


CALL 


NZ,@DSP 


;Display if not 


1F83 Fl 


22980 


POP 


AF 


;Get back remainder 


1F84 C63A 


22990 


ADD 


A S 3AH 


;Change to ASCII 


1F86 CD4206 


23000 


CALL 


@DSP 




1F89 211721 


23010 


LD 


HL,PARTYR 


;Part of year 


1F8C CD2D05 


23020 


CALL 


(3DSPLY 




1F8F 3A3300 


23030 


LD 


A, (DATES) 


;Form last year digit 


1F92 E607 


23040 


AND 


7 




1F94 C630 


23050 


ADD 


A,'0' 




IF 96 CD 4206 


23060 
23070 ; 


CALL 


@DSP 


; and display it 




23080 ; 


Prompt 


for time 






23090 ; 








IF 99 3 AC 304 


23100 TIMIN 


LD 


A,(TMPMT$) 


;Time to be prompted 


1F9C B7 


23110 


OR 


A 




1F9D 2028 


23120 


JR 


NZ,SELDCT 


; Ski p if not 


1F9F 211B16 


23130 TIMIN0 


LD 


HL S 22<8!27 
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1FA2 113021 


23140 


LD 


DE,TIMEPR 


;Set prompt message 


1FA5 013008 


23150 


LD 


BC,8<+8!'0' 


;Set len & separ char 


1FA8 CDAE20 


23160 


CALL 


GETPARM 




1FAB 30F2 


23170 


JR 


NC,TIMIN0 


;Loop on format error 


1FAD 21FF00 


23180 


LD 


HL,CFGFCB$+31 




1FB0 3E17 


23190 


LD 


A, 23 




1FB2 BE 


23200 


CP 


(HL) 


;Test hour range 


1FB3 38EA 


23210 


JR 


CTIMIN0 




1FB5 2B 


23220 


DEC 


HL 




1FB6 3E3B 


23230 


LD 


A,59 




1FB8 BE 


23240 


CP 


(HL) 


;Test minute range 


1FB9 38E4 


23250 


JR 


CTIMIN0 




1FBB 2B 


23260 


DEC 


HL 




1FBC BE 


23270 


CP 


(HL) 


;Test the second range 


1FBD 38E0 


23280 


JR 


CTIMIN0 




1FBF 112D00 


23290 


LD 


DE, TIMES 


;Move the time value 


1FC2 010300 


23300 


LD 


BC,3 


; into the TIMES field 


1FC5 EDB0 


23310 
23320 ; 


LDIR 








23330 ; 


Check 


on any AUTO command 




23340 ; 








1FC7 212004 


23350 SELDCT 


LD 


HL,INBUF$ 




1FCA 7E 


23360 


LD 


A,(HL) 


;Pt to 1st byte of AUTO 


1FCB FE2A 


23370 


CP 


'*' 


;BREAK disable? 


1FCD 200F 


23380 


JR 


NZ, CKDCR 




1FCF 23 


23390 


INC 


HL 




1FD0 3EE6 


23400 


LD 


A,0E6H 


;Set BREAK bit in flag by 


1FD2 325A20 


23410 
23420 


LD 


(STUB1+1),A 


; changing RES 4,(SFLAG$) 
; to SET 4,(SFLAG$) 


1FD5 181A 


23430 


JR 


AUTO? 




1FD7 CD1708 


23440 GETKB17 


CALL 


ENADIS DO RAM 




1FDA 3A41F4 


23450 


LD 


A,(KB1!KB7) 


;scan row 1 & 7 


1FDD C9 


23460 


RET 






1FDE CDD71F 


23470 CKDCR 


CALL 


GETKB17 


; Strobe keyboard 


1FE1 CB67 


23480 


BIT 


4,A 


;Is 'D' depressed? 


1FE3 E5 


23490 


PUSH 


HL 


;Save auto command pt 


1FE4 21081B 


23500 


LD 


HL,(3ABORT 


;P/u abort address 


1FE7 E3 


23510 


EX 


(SP),HL 


;Swap them around 


1FE8 C2A019 


23520 


JP 


NZ.0DEBUG 


; DEBUG on <D> 


1FEB Dl 


23530 


POP 


DE 


;Stack integrity 


1FEC 2F 


23540 


CPL 






1FED E601 


23550 


AND 


1 


;No AUTO if <ENTER> 


1FEF 2803 


23560 


JR 


Z,NOAUTl 




1FF1 7E 


23570 AUTO? 


LD 


A,(HL) 


;Any AUTO command? 


1FF2 FE0D 


23580 


CP 


CR 


;None if equal 


1FF4 Dl 


23590 NOAUT1 


POP 


DE 


;Get back SYSGEN flag 


IFF 5 7A 


23600 


LD 


A,D 


; & move into reg A 


1FF6 110B1B 


23610 


LD 


DE,(3EXIT 


; Where to go after boot 


IFF 9 010000 


23620 


LD 


BC,0 


,Init BC(HL)=0 for @EXIT 


1FFC 280F 


23630 


JR 


Z.NOAUT 


,Go if no AUTO 


1FFE E5 


23640 


PUSH 


HL 


,Save buffer pointer 


1FFF 218420 


23650 


LD 


HL,CURSET 


Point to cusor setting 


2002 34 


23660 


INC 


(HL) 


Bump it down a line 


2003 El 


23670 


POP 


HL 


Recover INBUF$ pointer 


2004 117E19 


23680 


LD 


DE,@CMNDI ; 


Lo order of 0CMNDI 


2007 D5 


23690 


PUSH 


DE 


Put on stack for RET 


2008 44 


23700 


LD 


B,H ; 


Put INBUF$ pointer on 


2009 4D 


23710 


LD 


C,L ; 


stack for @CMNDI 


200A 112D05 


23720 


LD 


DE,@DSPLY ; 


But do this first 
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200D D5 
200E C5 
200F 215620 
2012 115043 
2015 015800 

2018 D5 

2019 EDB0 
201B CD4C20 
201E 117004 
2021 210043 
2024 015000 

2027 D9 

2028 E682 
202A CO 
202B 210015 
202E 0603 
2030 CD990B 
2033 213F20 
2036 CD2D05 
2039 11E000 
203C C3381B 

203F 2A 

2A 20 53 
20 2A 2A 

204C 2160F4 

204F 4F 

2050 CD1708 

2053 79 

2054 B6 

2055 C9 



2056 217C00 

2059 CBA6 

205 B 200C 
205D 217600 

2060 7E 

2061 D3EC 

2063 D9 

2064 EDB0 
2066 CD8600 

2069 0E07 

206B CD1E1A 
206E FDCB035E 
2072 200B 
2074 FD3605FF 
2078 3AC404 
207B B7 
207C CCC819 
207F 0D 
2080 20E9 
2082 210015 
2084 



23730 

23740 

23750 

23760 

23770 

23780 

23790 

23800 

23810 

23820 

23830 

23840 

23850 

23860 

23870 

23880 

23890 

23900 

23910 

23920 

23930 

23940 

23950 

59 53 

03 

23960 

23970 

23980 

23990 

24000 

24010 

24020 

24030 

24040 

24050 

24060 

24070. 

24080 

24090 

24100 

24110 

24120 

24130 

24140 

24150 

24160 

24170 

24180 

24190 

24200 

24210 

24220 

24230 

24240 

24250 

24260 

24270 

24280 

24290 



NOAUT 



PUSH 

PUSH 

LD 

LD 

LD 

PUSH 

LDIR 

CALL 

LD 

LD 

LD 

EXX 

AND 

RET 

LD 

LD 

CALL 

LD 

CALL 

LD 

JP 



CONFIG$ DB 
47 45 4E 



GETKB67 LD 
LD 

CALL 
LD 
OR 
RET 



STUB LD 
STUBl RES 

JR 
LD 
LD 

EXX 

LDIR 

CALL 

NOTSG 

LD 

SETCYL0 

CALL 

BIT 

JR 

LD 

LD 

OR 

CALL 

NOFF DEC 
JR 
LD 

CURSET EQU 



DE 

BC 

HL,STUB 

DE,MOD3BUF+80 

BC.STUBLEN 

DE 

GETKB67 
DE,DCT$ 
HL 9 M0D3BUF 
BC S 80 

82 H 

NZ 

HL,21<8 

B,3 

(9VDCTL 

HL s CONFIG$ 

0DSPLY 

DE S CFGFCB$ 

0LOAD 

'** SYSGEN **' 



HL,KB67 

C A 

ENADIS_DO_RAM 

A,C 

(HL) 



;Put on stack for RET 
;Either INBUF$ or 

;Must move out of way 
; amount to move 
;Add ret vector to stack 
;Move stub up 

;Set up to move DCT's 
; from configed area 
;Count for DCTs (8*10) 
;Keep in alternate set 
;Load config if zero 
;No config > Go back 
;Set to line 21 
;Position cursor 

;Show sysgen message 

;Set up to load config 
;Go to load config 

53 ; Config DSP 



;Check <CLEAR> key 



;Key down OR not SYSGENed 



Final initialization code 



HL,SFLAG$ 
4,(HL) 

NZ, NOTSG 

HL,MODOUT$ 

A,(HL) 



(3ICNFG 

C,7 

(3GTDCT 

3,(IY+3) 

NZ,N0FF 

(IY+5) S 0FFH 

A,(RSTOR$) 

A 

Z 5 @RST0R 

C 

NZ,SETCYL0 

HL 9 21<8 

$-1 



Test or SET Break bit 

without changing Z/NZ 
Go if no SYSGEN found 
P/u ptr to port mask 
P/u mask byte 
Speed it up 
Set to move DCT's 
Move 'em 
;Init config 



;If hard drive, don't stuff FF 
; & don't restore 
;Set in case no restore 
;Do we restore the drives? 

;Restore drives 1-7 



;Set cursor 
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2085 0603 


24300 


LD 


B s 3 




2087 CD990B 


24310 
24320 ; 


CALL 


@VDCTL 






24330 ; 


Detect 


Model 4 or 4P anc 


1 adjust TFLAG$ 




24340 ; 


Look at 


'MODEL' at 4018H. If so M0D-4P (5) 




24350 ; 










24360 ; 








208A 114D4F 


24370 


LD 


DE s 'OM' 




208D 2A1840 


24380 






;P/u 4P rom leftover 


2090 ED52 


24390 


SBC 


HL,DE 


;Check if it's 'MO' 


2092 3E04 


24400 


LD 


A, 4 


;Init for MOD 4 REG. 


2094 2002 


24410 


JR 


NZ,M0D4REG 




2096 3E05 


24420 


LD 


A,5 


;Change to MOD 4P 


2098 327D00 


24430 M0D4REG LD 


(TFLAG$),A 






24440 ; 








209B 213800 


24450 


LD 


HL,@RST38 




209E 36C3 


24460 


LD 


(HL),0C3H 


;Activate task processor 


20A0 El 


24470 


POP 


HL 


;Pop INBUF$ 


20A1 C9 


24480 


RET 




;To @CMD or (9DSPLY,@CMNDI 


20A2 00 


24490 


DC 


12,0 


; Space for more code 


00 00 00 00 00 00 00 00 






00 00 00 










20AE 


24500 STUBEND EQU 


$ 




0058 


24510 STUBLEN EQU 


STUBEND-STUB 






24520 , 










24530 . 


Date & 


Time prompting 






24540,, 








20AE C5 


24550 GETPARM PUSH 


BC 


;Save separator char 


20AF D5 


24560 


PUSH 


DE 


;Save message pointer 


20B0 0603 


24570 


LD 


B,3 




20B2 CD990B 


24580 


CALL 


(9VDCTL 


;Position the cursor 


20B5 El 


24590 


POP 


HL 


;Recover message pointer 


20B6 CD2D05 


24600 


CALL 


0DSPLY 


; & display the message 


20B9 21001 E 


24610 


LD 


HL, OVERLAY 


;Buffer for reply 


20BC CI 


24620 


POP 


BC 




20BD C5 


24630 


PUSH 


BC 




20BE CD8505 


24640 


CALL 


0KEYIN 


;Get reply & wait a bit 


20C1 AF 


24650 


XOR 


A 


; disable test 


20C2 B0 


24660 


OR 


B 




20C3 CI 


24670 


POP 


BC 


; of key prior to AUTO 


20C4 C8 


24680 


RET 


Z 


;Ret with NC if no entry 


20C5 C5 


24690 


PUSH 


BC 




20C6 0640 


24700 


LD 


B,40H 




20C8 CD8203 


24710 


CALL 


(3PAUSE 


; to let finger off 


20CB CI 


24720 
24730 


POP 


BC 






24740 


, Routine 


to parse DATE entry 




24750 








20CC 11FF00 


24760 F 


>ARSDAT LD 


DE,CFGFCB$+31 


;Point to buf end 


20CF 0603 


24770 


LD 


B,3 


;Process 3 fields 


20D1 D5 


24780 f 
24790 


>RSD1 PUSH 


DE 


;Save pointer 




24800 


, Routine 


to parse a digit pair 




24810 








20 D2 CDF 820 


24820 


CALL 


PRSD3 


;Get a digit 


20D5 300F 


24830 


JR 


NC.PRSD2 


;Jump if bad digit 


20D7 5F 


24840 


LD 


E,A 


;Multiply by ten 


20D8 07 


24850 


RLCA 






20D9 07 


24860 


RLCA 
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20 DA 83 
20 DB 07 
20DC 5F 
20DD CDF 820 
20E0 3004 
20E2 83 
20E3 5F 
20E4 37 
20E5 7B 
20E6 Dl 
20E7 D0 
20E8 12 
20E9 05 
20EA 37 
20EB C8 
20EC IB 
20ED 7E 
20EE 23 
20EF FE3A 
20F1 28 DE 
20F3 B9 
20F4 3006 
20F6 18D9 
20F8 7E 
20F9 23 
20FA D630 
20FC FE0A 
20FE C9 



20FF E5 
2100 214221 
2103 CD2D05 

2106 El 

2107 05 

2108 7D 

2109 80 
210A 80 
210B 80 
210C 6F 
210D 0603 
210F 7E 

2110 23 

2111 CD4206 
2114 10F9 

2116 C9 

2117 2C 

20 31 39 



211E IE 

44 61 74 
44 44 2F 
03 



24870 

24880 

24890 

24900 

24910 

24920 

24930 

24940 

24950 

24960 

24970 

24980 

24990 

25000 

25010 

25020 

25030 

25040 

25050 

25060 

25070 

25080 

25090 

25100 

25110 

25120 

25130 

25140 

25150 

25160 

25170 

25180 

25190 

25200 

25210 

25220 

25230 

25240 

25250 

25260 

25270 

25280 

25290 

25300 

25310 

25320 

25330 

25340 

38 IE 

25350 

25360 

25370 

25380 

25390 

65 20 

59 59 



PRSD2 



PRSD3 



PRSD4 



ADD 

RLCA 

LD 

CALL 

JR 

ADD 

LD 

SCF 

LD 

POP 

RET 

LD 

DEC 

SCF 

RET 

DEC 

LD 

INC 

CP 

JR 

CP 

JR 

JR 

LD 

INC 

SUB 

CP 

RET 



A S E 

E,A 

PRSD3 

NC,PRSD2 

A,E 

E,A 

A,E 
DE 
NC 
(DE),A 



Z 

DE 

A,(HL) 

HL 
i . i 

Z^PRSDl 

C 

NC S PRSD4 

PRSD1 

A,(HL) 

HL 

30 H 

10 



;Get another digit 
;Jump on bad digit 
;Accumulate new digit 
;Save 2-digit value 
;Show valid 
;Xfer field value 
;Recover pointer 
;Ret if bad digit pair 
;Else stuff the value 
;Loop countdown 

;Ret when through 

;Backup the pointer 

;Ck for valid separator 

;Bump pointer 

;Check for colon ' : ' 

; loop if match 

; Separator char required 

;Exit if bad char 

; else loop now 

;P/u a digit & 

; convert to binary 



Routine to display month or day of week 



SPACE4 PUSH 
LD 

CALL 
POP 

DSPMDY DEC 
LD 
ADD 
ADD 
ADD 
LD 
LD 

DSPM1 LD 
INC 
CALL 
DJNZ 
RET 

PARTYR DB 

03 

» 

IF 
DATEPR DB 

ELSE 
DATEPR DB 
4D 4D 2F 
20 3F 20 



HL 

HL S SPACE4$ 

@DSPLY 

HL 

B 

A,L 

A,B 

A,B 

A,B 

L,A 

B,3 

A,(HL) 

HL 

(3DSP 

DSPM1 

', 198', 30,3 



GINTL 

30,' Date DD/MM/YY ? ',3 

30,' Date MM/DD/YY ? ',3 



;Print 4 SPACES 
; point to string 



; Point to Bth entry 
: in table 



;Print 3 characters 



25400 
25410 ; 



ENDIF 
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2130 IE 25420 TIMEPR DB 

54 69 6D 65 20 48 48 3A 

4D 4D 3A 53 53 20 3F 20 
03 

2142 20 25430 SPACE4$ DB 

20 20 03 03 

2147 00 25440 DC 

00 00 00 00 00 00 00 00 

00 00 00 00 00 00 00 00 



2167 



00 00 00 00 
03810 



SYSRES - LS-DOS 6.2 



30, 'Time HH:MM:SS ? ',3 



Page 00051 



32 s | 



,03,03 ;3 or 4 space string 

;Space for message, or?? 



SUBTTL '<Misc. lowcore routines>' 
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2167 



0090 
0380 
0380 0000 



0382 C5 



0383 3A7C00 
0386 CB5F 
0388 C48C03 
038B CI 
038C 0B 
038D 78 
038E Bl 
038F 20FB 
0391 C9 



0392 C5 

0393 E5 

0394 78 

0395 E607 

0397 07 

0398 21D103 
039B 4F 

03 9C 78 
039D 0600 
039F 09 
03A0 4E 
03A1 23 
03A2 6E 
03A3 0F 
03 A4 0F 
03A5 0F 
03 A6 E61F 
03A8 3C 
03A9 67 
03AA 3A7C00 
03 AD E608 
03AF 2806 
03B1 CB24 
03B3 CB25 
03B5 CB21 
03B7 F3 



03830 
25450 
25460 
25470 
25480 
25490 
25500 
25510 
25520 
25530 
25540 
25550 
25560 
25570 
25580 
25590 
25600 
25610 
25620 
25630 
25640 
25650 
25660 
25670 
25680 
25690 
25700 
25710 
25720 
25730 
25740 
25750 
25760 
25770 
25780 
25790 
25800 
25810 
25820 
25830 
25840 
25850 
25860 
25870 
25880 
25890 
25900 
25910 
25920 
25930 
25940 
25950 
25960 
25970 
25980 
25990 
26000 
26010 
26020 
26030 



*GET SOUND :3 

; SOUND/ASM - LS-DOS 6.2 

; Contains IPL 9 PAUSE, SOUND, and DECHEX routines 
; Will be loaded into lowcore area along with SYSRES 



*M0D 
SNDPORT 



(3 SOUND 



ORG 

DW 



STACKS 
00 



Pause routine 



@PAUSE PUSH 
; SRL 
; RR 
LD 
BIT 
CALL 
POP 
CDLOOP DEC 
LD 
OR 
JR 
RET 



BC 



A S (SFLAG$) 

3 A 

NZ,CDLOOP 

BC 

BC 

A,B 

C 

NZ s CDLOOP 



; Stack gaurd 



;Save the count 

; Adjust for WAIT STATES 

;If system (FAST) 
; then double it 
;Call if fast 
;Restore the count 
;Count down routine 



@SOUND SVC-104 - Operates sound generator 

B => sound function 

Bits 0-2 <0-7> = note # (0 highest) 

Bits 3-7 <0-31> = relative sound duration 

All regs except A left unchanged 

Z-flag set on exit 

Note that interrupts disabled during duration 



$A1 



PUSH 


BC 


;Save registers 


PUSH 


HL 




LD 


A,B 


;P/u sound data 


AND 


7 


; & strip off duration 


RLCA 




;Adj for 2-byte fields 


LD 


HL,SNDTAB 




LD 


C,A 




LD 


A,B 


;Pick up duration data 


LD 


B,0 


; Index into tone table 


ADD 


HL,BC 


; to get note-on/off 


LD 


C,(HL) 


;P/u note-on/off data 


INC 


HL 




LD 


L,(HL) 


;P/u note duration 


RRCA 




;Rotate sound duration 


RRCA 




; into bits 0-4 


RRCA 






AND 


1FH 


;Strip off sound # 


INC 


A 


;Adjust for offset 


LD 


H,A 


;Set sound counter 


LD 


A,(SFLAG$) 


;If fast, double values 


AND 


8H 




JR 


Z,$A1 




SLA 


H 




SLA 


L 




SLA 


C 




DI 




;Can't interrupt timing 
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03B8 E5 


26040 $A2 


PUSH 


HL 


;Save note duration 


03B9 41 


26050 $A3 


LD 


B,C 


;Play tone 


03BA 3E01 


26060 


LD 


A,l 


;Hold output high 


03BC D390 


26070 


OUT 


(SNDPORT),A 


; for count of (B) 


03BE 10FE 


26080 


DJNZ 


$ 




03 C0 41 


26090 


LD 


B 9 C 


;Hold output low for 


03C1 3C 


26100 


INC 


A 


; for count of (B) 


03C2 D390 


26110 


OUT 


(SNDPORT) 9 A 




03C4 10FE 


26120 


DJNZ 


$ 




03C6 2D 


26130 


DEC 


L 


;Dec the duration 


03C7 20F0 


26140 


JR 


NZ,$A3 




03C9 El 


26150 


POP 


HL 


;Get sound/note durations 


03 CA 25 


26160 


DEC 


H 


;Count down the sound 


03CB 20EB 


26170 


JR 


NZ,$A2 


; duration counter 


03CD FB 


26180 


EI 




;Restore interrupts 


03CE El 


26190 


POP 


HL 




03CF CI 


26200 


POP 


BC 




03D0 C9 


26210 
26220 ; 


RET 








26230 ; 


Note ta 


ible 






26240 ; 








00 B4 


26250 SNDOFF 


EQU 


180 


;Sound duration offset 


001 C 


26260 TONER 


EQU 


28 




03D1 50 


26270 SNDTAB 


DB 


108-TONER 


;Note (highest) 


03D2 4C 


26280 


DB 


0-SNDOFF 




03 D3 56 


26290 


DB 


114-TONER 




03 D4 48 


26300 


DB 


252-SNDOFF 




03 D5 5C 


26310 


DB 


120-TONER 




03 D6 44 


26320 


DB 


248-SNDOFF 




03 D7 62 


26330 


DB 


126-TONER 




03 D8 40 


26340 


DB 


244-SNDOFF 




03 D9 6B 


26350 


DB 


135-TONER 




03 DA 3C 


26360 


DB 


240-SNDOFF 




03 DB 72 


26370 


DB 


142-TONER 




03 DC 38 


26380 


DB 


236-SNDOFF 




03 DD 79 


26390 


DB 


149-TONER 




03 DE 34 


26400 


DB 


232-SNDOFF 




03 DF 80 


26410 


DB 


156-TONER 


;Note 7 (lowest) 


03 E0 30 


26420 


DB 


228-SNDOFF 




004F 


26430 SNDLEN 
26440 ; 


EQU 


$-@SOUND 






26450 ; 


Process 


; decimal assi 


gnment 




26460 ; 








03E1 010000 


26470 0DECHEX 


. LD 


BC 5 


;Init value to zero 


03E4 7E 


26480 DEC1 


LD 


A,(HL) 


;P/u a char 


03 E5 D630 


26490 


SUB 


30 H 


;Cvrt to binary 


03E7 D8 


26500 


RET 


C 


;Return if < "0" 


03E8 FE0A 


26510 


CP 


10 


;Ck for bad decimal 


03 EA D0 


26520 


RET 


NC 


;Ret if not 0-9 


03EB C5 


26530 


PUSH 


BC 


Exchange BC & HL 


03EC E3 


26540 


EX 


(SP) S HL 


; & save HL on stack 


03 ED 29 


26550 


ADD 


HL,HL 


;Multiply by 10 


03 EE 29 


26560 


ADD 


HL,HL 




03 EF 09 


26570 


ADD 


HL,BC 




03F0 29 


26580 


ADD 


HL,HL 




03F1 0600 


26590 


LD 


B,0 


; Merge in new digit 


03F3 4F 


26600 


LD 


C,A 


;New digit to C 


03F4 09 


26610 


ADD 


HL,BC 


; & add it in 


03F5 44 


26620 


LD 


B,H 


;Current value to BC 
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03F6 4D 26630 LD C,L 

03F7 El 26640 POP HL ;Recover HL pointer 

03F8 23 26650 INC HL 

03F9 18E9 26660 JR DEC1 ;Loop 

26670 ; 

26680 ; Special Boot code to be moved to 4300h by IPL 

26690 ; 

03FB F3 26700 BOOTCOD 01 ;Boot stub for @IPL to 

03FC AF 26710 XOR A ; to move to 4300h 

03FD D384 26720 OUT (@0PREG),A 
03 FF C7 26730 RST 

0005 26740 BOOTLEN EQU $-B00TC0D 

26750 ; 
0400 03840 SUBTTL '<Sign-on LOGO displayV 

0400 03850 *GET LOGO: 3 

26760 ;RSLOGOB/ASM 3-D RS LOGO used on 6.2.0 - 1/20/84 

26770 *LIST OFF 

27540 *LIST ON 

03860 ; 
1E00 03870 END OVERLAY 
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LDOS60 


@$SYS 


08F0 00040 




$MAIN 


+(301 


0000 03870 




LDOS60 


+(a@l 


0000 00050 




$MAIN 


+@@2 


0000 03870 




LDOS60 


+@@2 


0000 00060 




$MAIN 


+@(33 


0000 03870 




L DOS 60 


+(303 


0000 00070 




$Mf\IN 


+(3(34 


0000 03870 




LDOS60 


+@@4 


0000 00080 




LOADER 


0ABORT 


1B08 16360 LOADER 


12760 






SYSINIT4 23500 


TASKER 


0ADTSK 


1CDA 19880 LOADER 


12780 


LDOS60 


@BANK 


0877 00090 LOADER 


12960 14280 


FILPOSN 


@BKSP 


1486 03560 LOADER 


12860 


LOADER 


0BREAK 


196F 13310 LOADER 


12960 


LDOS60 


@BYTEIO 


1300 00100 $MAIN 


03290 


L DOS 60 


(9CHNIO 


0689 00110 LOADER 


12760 


L DOS 60 


0CKBRKC 


0553 00120 LOADER 


12970 


LOADER 


@CKDRV 


1993 13590 LOADER 


12790 


FILPOSN 


@CKEOF 


158F 05460 LOADER 


12860 


TASKER 


0CKTSK 


1CF5 20130 LOADER 


12780 


LOADER 


@CLOSE 


1999 13630 LOADER 


12860 


LDOS60 


@CLS 


0545 00130 LOADER 


12970 


LOADER 


0CMNDI 


197E 13450 LOADER 


12770 






SYSINIT4 23680 


LOADER 


0CMNDR 


197B 13430 LOADER 


12770 


L DOS 60 


@CTL 


0623 00140 LOADER 


12720 






SYSINIT4 21110 


L DOS 60 


0DATE 


07A8 00150 LOADER 


12750 


LOADER 


(PDBGHK 


199F 13670 LOADER 


15310 15450 






TASKER 


19190 


LOADER 


@DCINIT 


19C0 13910 LOADER 


12810 


LOADER 


0DCRES 


19C4 13930 LOADER 


12810 


LOADER 


GDCSTAT 


19B5 13850 LOADER 


12810 


LOADER 


GDCTBYT 


1A2B 14780 FILPOSN 


05900 10390 11970 12040 12260 


LOADER 


@DEBUG 


19A0 13680 $MAIN 


00570 






LOADER 


12770 






SYSINIT4 23520 


SOUND 


@DECHEX 


03E1 26470 LOADER 


12950 


FILPOSN 


0DIRCYL 


18F7 11960 FILPOSN 


11060 11290 11640 


FILPOSN 


(3DIRRD 


18BB 11490 FILPOSN 


04370 07690 09810 10050 






LOADER 


12920 15850 


FILPOSN 


0DIRWR 


1803 10190 FILPOSN 


04510 09610 10010 






LOADER 


12930 


LDOS60 


@DIV16 


06E3 00160 FILPOSN 


04010 04070 05930 






LOADER 


12940 


FILPOSN 


@DIV8 


1927 12370 LOADER 


12940 


LOADER 


(3DODIR 


19AF 13780 LOADER 


12790 


LOADER 


0DOKEY 


19A9 13740 




LDOS60 


@DSP 


0642 00170 LOADER 


12710 






SYSINIT4 22790 22810 22870 22970 23000 ; 






SYSINIT4 25310 


LDOS60 


(9DSPLY 


052D 00180 LOADER 


12730 






SYSINIT4 23020 23720 23910 24600 25200 


LOADER 


TERROR 


1BJ9F 16410 LOADER 


12770 


LOADER 


@EXIT 


1B0B 16370 LOADER 


12760 






SYSINIT4 23610 


LOADER 


@FEXT 


1984 13490 LOADER 


12900 


LOADER 


0FLAGS 


196A 13280 LOADER 


12960 
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LOADER 


@FNAME 


199C 13650 LOADER 


12910 




LDOS60 


0FRENCH 


0000 00190 $MAIN 


01480 03460 




LOADER 


(3FSPEC 


1981 13470 LOADER 


12900 




FILPOSN 


0GATRD 


1874 11010 FILPOSN 
LOADER 


08230 
12920 




FILPOSN 


(36ATWR 


1875 11020 FILPOSN 
LOADER 


09580 
12930 




LDOS60 


^GERMAN 


0000 00200 $MAIN 


01510 03430 




LDOS60 


@GET 


0638 00210 LOADER 


12710 




LOADER 


0GTDCB 


1990 13570 LOADER 


12910 




LOADER 


GGTDCT 


1A1E 14580 LOADER 


12910 14390 








SYSINIT4 24190 




LOADER 


0GTMOD 


19B2 13800 LOADER 


12910 




LOADER 


@HDFMT 


19E4 14090 LOADER 


12840 




LDOS60 


0HEX16 


07BD 00220 LOADER 


12950 




LDOS60 


(3HEX8 


07C2 00230 LOADER 


12950 16320 




LDOS60 


(9HEXDEC 


06F6 00240 LOADER 


12950 




LOADER 


@HIGH$ 


1948 13070 LOADER 


12960 




FILPOSN 


@HITRD 


1897 11240 FILPOSN 


09660 




FILPOSN 


@HITWR 


1898 11250 FILPOSN 


09800 




LDOS60 


0HZ50 


0000 00250 






$MAIN 


0ICNFG 


0086 02870 SYSINIT4 24150 




LOADER 


0INIT 


198D 13550 LOADER 


12850 




LDOS60 


0INTL 


0000 00260 $MAIN 


01890 








SYSINIT4 21400 21760 21910 


25360 


LOADER 


t?IPL 


1BF2 18100 LOADER 


12710 




LDOS60 


@JCL 


0630 00270 






LDOS60 


@KBD 


0635 00280 LOADER 


12730 




LDOS60 


(s>KEY 


0628 00290 LOADER 


12710 




LDOS60 


@KEYIN 


0585 00300 LOADER 


12730 








SYSINIT4 24640 




$MAIN 


0KITSK 


0089 02920 






LDOS60 


0KITSK 


0089 00310 






TASKER 


0KLTSK 


1CD0 19810 LOADER 


12790 




LOADER 


0LOAD 


1B38 16770 LOADER 


12900 16530 








SYSINIT4 23930 




FILPOSN 


@LOC 


14B3 03870 FILPOSN 
LOADER 


03050 
12860 




FILPOSN 


@LOF 


14DE 04250 LOADER 


12870 




LDOS60 


0LOGER 


0503 00320 LOADER 


12730 




L DOS 60 


0LOGOT 


0500 00330 LOADER 


12740 16340 




LDOS60 


0MOD2 


0000 00340 






LDOS60 


GM0D4 


FFFF 00350 $MAIN 

FILPOSN 


02490 
04170 




LDOS60 


@MSG 


0530 00360 LOADER 


12740 




LDOS60 


0MUL16 


06C9 00370 FILPOSN 
LOADER 


03180 
12930 




FILPOSN 


@MUL8 


190A 12110 FILPOSN 
LOADER 


06960 10500 
12930 




SMAIN 


@NMI 


0066 00850 SYSINIT4 20340 




LOADER 


@OPEN 


198A 13530 LOADER 


12850 16810 




LDOS60 


(90PREG 


0084 00380 TASKER 


18500 18700 








SYSINIT4 20700 








SOUND 


26720 




LOADER 


0PARAM 


1987 13510 LOADER 


12750 




SOUND 


(9PAUSE 


0382 25570 LOADER 


12750 








SYSINIT4 24710 




FILPOSN 


@PEOF 


14A2 03770 LOADER 


12870 




FILPOSN 


(apOSN 


1434 03100 LOADER 


12870 17740 
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LDOS60 


0PRINT 


LDOS60 


@PRT 


LDOS60 


@ PUT 


LOADER 


0RAMDIR 


LOADER 


(3RDHDR 


LOADER 


(9RDSEC 


FILPOSN 


@RDSSC 


LOADER 


0RDTRK 


FILPOSN 


(9READ 


LOADER 


(9REMOVE 


LOADER 


0RENAME 


FILPOSN 


@REW 


TASKER 


(3RMTSK 


TASKER 


0RPTSK 


FILPOSN 


@RREAD 


LOADER 


0RSLCT 


$MAIN 


(3RST00 


$MAIN 


(PRST08 


$MAIN 


0RST10 


$MAIN 


0RST18 


$MAIN 


(3RST20 


$MAIN 


0RST28 


$MAIN 


(9RST30 


$MAIN 


(9RST38 


L DOS 60 


(9RSTNMI 


LOADER 


(3RST0R 


L DOS 60 


@RSTREG 


LOADER 


@RUN 


FILPOSN 


@RWRIT 


LOADER 


@SEEK 


FILPOSN 


0SEEKSC 


FILPOSN 


0SKIP 


LOADER 


@SLCT 


SOUND 


@SOUND 


LOADER 


@STEPI 


LDOS60 


@TIME 


LDOS60 


@USA 


LDOS60 


GVDCTL 


LDOS60 


(3VDCTL3 


FILPOSN 


@VER 


LOADER 


@VRSEC 


FILPOSN 


0WEOF 


LOADER 


0WHERE 


FILPOSN 


MITE 


LOADER 


0WRSEC 


LOADER 


@WRSSC 


LOADER 


@WRTRK 


LDOS60 


@ VDCTL 


TASKER 


ACTVTSK 
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0528 00390 LOADER 


12740 




063D 00400 LOADER 


12720 




0645 00410 LOADER 


12720 




19AC 13760 LOADER 


12790 




19D8 14030 LOADER 


12830 




19F4 14170 FILPOSN 


02130 


11800 11920 


LOADER 


12830 




18D8 11760 FILPOSN 


11110 


11340 11530 


LOADER 


12920 




19E0 14070 LOADER 


12830 




1513 04550 LOADER 


12870 




19A6 13720 LOADER 


12850 




1996 13610 LOADER 


12850 




149B 03700 LOADER 


12880 




1CD7 19860 LOADER 


12780 




1CEB 20030 LOADER 


12780 




TASKER 


19680 


19820 


1473 03400 LOADER 


12880 




19D4 14010 LOADER 


12820 




0000 00300 






0008 00340 






0010 00400 






0018 00430 






0020 00480 






0028 00530 






0030 00570 LOADER 


16720 




0038 00590 SYSINIT4 24450 




0FE9 00420 SYSINIT4 20330 




19C8 13950 LOADER 


12820 




SYSINIT4 24250 




0680 00430 






IBID 16500 LOADER 


12900 




13AD 02300 LOADER 


12880 




19D0 13990 FILPOSN 


02990 




LOADER 


12820 




1421 02950 LOADER 


12880 




1430 03050 LOADER 


12890 




19BC 13890 LOADER 


12810 




0392 25780 LOADER 


12970 




SOUND 


26430 




19CC 13970 LOADER 


12820 




078D 00440 LOADER 


12750 




FFFF 00450 $MAIN 


01540 03400 


0B99 00460 LOADER 


12740 




SYSINIT4 22740 23890 24310 24580 


0D38 00470 






1560 05080 LOADER 


12890 




19DC 14050 FILPOSN 


02630 


10250 11150 11380 


LOADER 


12830 




14EC 04330 LOADER 


12890 




1979 13380 LOADER 


12720 




1531 04770 LOADER 


12890 




19E8 14110 FILPOSN 


02590 




LOADER 


12840 




19EC 14130 FILPOSN 


10240 


11140 11370 


LOADER 


12840 




19F0 14150 LOADER 


12840 




0D42 00480 






1C49 18830 TASKER 


18610 





Page 121 



The Source System References SYSRES - LS-DOS 6.2 Page 

Origin Symbolic Label Value Line# Usage Line#'s of References 



LDOS60 


ADDR 2 ROWCOL 


0DF1 00490 




FILPOSN 


ADJ2 


15BA 05750 FILPOSN 


03480 


FILPOSN 


ADJUST 


15B7 05730 FILPOSN 


03890 05490 


$MAIN 


AFLAG$ 


006A 00990 FILPOSN 


08370 


FILPOSN 


ALL1 


167E 07220 FILPOSN 


07350 


FILPOSN 


ALL2 


1689 07300 FILPOSN 


07250 


FILPOSN 


ALL3 


1691 07360 FILPOSN 


07310 


FILPOSN 


ALL4 


16A2 07470 FILPOSN 


07290 


FILPOSN 


ALL5 


16A5 07500 FILPOSN 


07460 


FILPOSN 


ALL6 


16A6 07510 FILPOSN 


07130 


FILPOSN 


ALLOC 


1664 07050 FILPOSN 


06430 


FILPOSN 


ATEOFW 


135E 01880 FILPOSN 


01850 


SYSINIT4 


AUTO? 


1FF1 23570 SYSINIT4 23430 


LDOS60 


BAR$ 


0201 00500 SYSINIT4 20900 


FILPOSN 


BFRPOS 


1413 02850 FILPOSN 


01550 01770 


FILPOSN 


BKSP0 


1494 03630 FILPOSN 


03460 


FILPOSN 


BKSP1 


1478 03430 FILPOSN 


03600 03640 


SYSINIT4 


BOL 


001 D 20280 




SOUND 


BOOTCOD 


03FB 26700 LOADER 


18100 






SOUND 


26740 


SOUND 


BOOTLEN 


0005 26740 LOADER 


18130 


LDQS60 


BOOTST$ 


439D 00510 SYSINIT4 20980 


TASKER 


BREAK? 


1C60 19070 TASKER 


18670 


TASKER 


BRKVEC$ 


1C88 19320 LOADER 


13320 13340 


FILPOSN 


BUMPNRN 


1398 02170 FILPOSN 


02140 02650 


LDOS60 


BUR$ 


0200 00520 SYSINIT4 20910 


FILPOSN 


BYTE 10 


1300 01380 




FILPOSN 


CALCDIR 


18CA 11640 FILPOSN 


10220 11500 


FILPOSN 


CALCSEC 


1621 06510 FILPOSN 


06140 06380 


FILPOSN 


CALS1 


1640 06740 FILPOSN 


06470 


FILPOSN 


CALS2 


1647 06810 FILPOSN 


06590 


FILPOSN 


CALS3 


1649 06830 FILPOSN 


06460 


FILPOSN 


CALS4 


164F 06880 FILPOSN 


06450 06510 


FILPOSN 


CALS5 


165F 06980 FILPOSN 


05940 


LDOS60 


CASHK$ 


0A7B 00530 




SOUND 


CDLOOP 


038C 25640 SOUND 


25620 25670 


$MAIN 


CFCB$ 


00E0 03140 




$MAIN 


CFGFCB$ 


00E0 03150 SYSINIT4 21380 23180 


LDOS60 


CFLAG$ 


006C 00540 




$WIN 


CFLAG$ 


006C 01120 LOADER 


13100 


FILPOSN 


CG01 


16B5 07660 FILPOSN 


08170 


FILPOSN 


CG02 


16C6 07750 FILPOSN 


07950 


FILPOSN 


CG03 


16D6 07870 FILPOSN 


07850 


FILPOSN 


CG04 


16E2 08000 FILPOSN 


07920 


FILPOSN 


CG05 


16EA 08120 FILPOSN 


07770 


FILPOSN 


CG06 


16A9 07560 FILPOSN 


08140 


FILPOSN 


CG07 


16F2 082J0 FILPOSN 


07560 


FILPOSN 


CG12 


1716 08460 FILPOSN 


09550 


FILPOSN 


CG13 


173F 08780 FILPOSN 


08510 08700 


FILPOSN 


CG14 


1756 08980 FILPOSN 


08430 08830 


FILPOSN 


CG16 


175E 09010 FILPOSN 


09080 09100 


FILPOSN 


CG17 


175F 09020 FILPOSN 


08990 


FILPOSN 


CG18 


176A 09090 FILPOSN 


09030 


FILPOSN 


CG19 


1777 09200 FILPOSN 


09060 


FILPOSN 


CG20 


177D 09240 FILPOSN 


09310 


FILPOSN 


CG21 


178A 09350 FILPOSN 


08740 09260 


FILPOSN 


CG22 


1797 09460 FILPOSN 


09420 


FILPOSN 


CG23 


17A4 09570 FILPOSN 


08870 09120 


TASKER 


CHGTASK 


1CE3 19940 TASKER 


20090 
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FILPOSN 


CKDBLBIT 


193B 12560 FILPOSN 10510 12330 


SYSINIT4 CKDCR 


1FDE 23470 SYSINIT4 23380 


FILPOSN 


CKEOF1 


1592 05470 FILPOSN 01500 01840 02020 02510 02700 02960 
FILPOSN 03360 


FILPOSN 


CKEOF2 


15AD 05620 FILPOSN 05520 05550 


FILPOSN 


CKE0F3 


15B4 05670 FILPOSN 05640 


LOADER 


CKMOD@ 


1A7F 15510 LOADER 15370 


FILPOSN 


CKOPEN(s> 


1568 05130 FILPOSN 01400 02300 02950 03100 03400 03560 
FILPOSN 03700 03770 03870 04250 04330 04550 
FILPOSN 04770 05080 05460 


SYSINIT4 CLRLOOP 


1E1C 20480 SYSINIT4 20500 


SYSINIT4 CONFIGS 


203F 23950 SYSINIT4 23900 


LDOS60 


+CORE$ 


1CFF 00550 


SMAIN 


+CORES 


1BFF 03670 


TASKER 


+CORE$ 


1948 18230 


LOADER 


+CORE$ 


1948 12660 SMAIN 03540 
LOADER 13030 
TASKER 18280 
SMAIN 03680 03690 


$MAIN 


+CORE$ 


0300 03370 


SMAIN 


CR 


000D 00130 LOADER 16460 
SYSINIT4 23580 


LDOS60 


CRTBGN$ 


F800 00560 SMAIN 03380 03510 



SYSINIT4 20360 

LOGO 26780 26840 26900 26950 

LOGO 27090 27130 27160 27190 

LOGO 27320 27370 27420 27480 



27000 
27230 



27050 
27270 



SYSINIT4 


CURSET 


2084 24290 SYSINIT4 23650 


FILPOSN 


CYL GRN 


16AE 07630 FILPOSN 


07050 08940 


LOADER 


D0FBYT8 


1A26 14660 




LDOS60 


DATES 


0033 00570 




SMAIN 


DATES 


0033 00580 SYSINIT4 21280 21700 22040 22210 
SYSINIT4 22660 22820 22880 23030 


SYSINIT4 


DATE PR 


211E 25390 SYSINIT4 21580 


SYSINIT4 


DAT IN 


1EB8 21570 SYSINIT4 21610 21660 21860 22000 


SYSINIT4 


DAT INI 


1EC6 21620 SYSINIT4 21550 


SYSINIT4 


DAYLP 


1F12 22300 SYSINIT4 22370 


LDOS60 


DAYTBLS 


04C7 00580 SYSINIT4 22760 


SMAIN 


DBGSVS 


00A0 03040 




LDOS60 


DCBKLS 


0031 00590 




LDOS60 


DCT$ 


0470 00600 LOADER 


15020 






SYSINIT4 21010 21070 23810 


LOADER 


DCTBYT8@ 


1A29 14700 




LOADER 


DCTFLDG 


1A34 14920 FILPOSN 


11880 






LOADER 


14590 14800 


FILPOSN 


DEA1 


192C 12410 FILPOSN 


12470 


FILPOSN 


DEA2 


1934 12470 FILPOSN 


12440 


SOUND 


DEC1 


03E4 26480 SOUND 


26660 


LDOS60 


DFLAGS 


006D 00610 




SMAIN 


DFLAGS 


006D 01240 




$MAIN 


DIRBUFS 


2300 03730 FILPOSN 


08360 08680 11070 


FILPOSN 


DIRWR 


1807 10210 FILPOSN 


10190 


LDOS60 


DIS DO RAM 


0846 00620 




SYSINIT4 


DIV10 


1F75 22900 SYSINIT4 22920 


SYSINIT4 


DIV7 


1F37 22590 SYSINIT4 22600 


FILPOSN 


DNTSET 


1367 01910 FILPOSN 


01870 


LDOS60 


DODATAS 


0B94 00630 




LDOS60 


DODCBS 


0210 00640 




LDOS60 


DO CONTROL 


0C44 00650 





22230 22390 
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LDOS60 


DO DSPCHAR 


0CB8 00660 


LDOS60 


DO INVERT DIS 


0C8C 00670 


LDOS60 


DO INVERT ENA 


0C89 00680 


LDOS60 


DO INVERT OFF 


0C9B 00690 


LDOS60 


DO MASK 


0000 00700 


LDOS60 


DO RET 


0BCB 00710 


LDOS60 


DO RET1 


0BCC 00720 


LDOS60 


DO SCROLL 


0CCE 00730 


LDOS60 


DO TABS 


0BEA 00740 


LDOS60 


DSKTYP$ 


04C0 00750 


SYSINIT4 


DSPM1 


210F 25290 SYSINIT4 25320 


SYSINIT4 


DSPMDY 


2107 25220 SYSINIT4 22850 


LDOS60 


DTPMT$ 


04C2 00760 SYSINIT4 21230 


LDOS60 


DVREND$ 


0FF4 00770 


LDOS60 


DVRHI$ 


0206 00780 


$MAIN 


EFLAG$ 


006 E 01330 


LDOS60 


ENADIS DO RAM 


0817 00790 SYSINIT4 23440 23990 


LOADER 


ERRNUM 


1B19 16460 LOADER 16310 


LOADER 


ERRSVC 


1A4F 15130 LOADER 15080 


LOADER 


EXERR 


1AD8 16000 LOADER 15860 15910 


TASKER 


EXITBRK 


1C8E 19360 TASKER 19230 


LOADER 


EXOVR 


1AA0 15720 LOADER 15590 15610 


LOADER 


EXOVR1 


1AAA 15780 LOADER 15760 


LOADER 


EX0VR2 


1AD1 15970 LOADER 15540 


LOADER 


EX0VR3 


1ADA 16020 LOADER 15680 


LOADER 


EXTDBG$ 


19A4 13710 


LDOS60 


FDDINT$ 


000E 00800 


$MAIN 


FDDINT$ 


000E 00380 


$MAIN 


FEMSK$ 


006F 01340 SYSINIT4 20920 


LDOS60 


FLGTAB$ 


006A 00810 LOADER 13280 


$MAIN 


FLGTAB$ 


006A 00940 


FILPOSN 


GATRW1 


188A 11140 FILPOSN 11100 


FILPOSN 


GATRW2 


1894 11180 FILPOSN 11130 


LOADER 


GETADR 


1BE8 18000 LOADER 17340 17410 17620 17640 


LOADER 


GETHI 


195A 13180 LOADER 13220 


LOADER 


GETHILO 


195E 13200 LOADER 13090 


SYSINIT4 


GETKB17 


1FD7 23440 SYSINIT4 23470 


SYSINIT4 


GETKB67 


204C 23970 SYSINIT4 23800 


FILPOSN 


GETNRN 


140C 02810 FILPOSN 02310 03240 03430 03880 05470 05890 


SYSINIT4 


GETPARM 


20AE 24550 SYSINIT4 21600 23160 


LDOS60 


GET @ ROWCOL 


0DAE 00820 


LOADER 


GODOIO 


1A1C 14560 LOADER 14420 


TASKER 


GOTBRK 


1C6A 19160 TASKER 19070 


FILPOSN 


GREC1 


15E7 06020 FILPOSN 06230 


FILPOSN 


GREC2 


15F8 06150 FILPOSN 06060 06280 06360 


FILPOSN 


GREC3 


1603 06240 FILPOSN 06120 


FILPOSN 


GREC4 


1616 06420 FILPOSN 06180 


LDOS60 


HERTZ$ 


0750 00830 


LDOS60 


HIGH$ 


040E 00840 LOADER 13170 13180 
TASKER 19280 
SYSINIT4 20730 


FILPOSN 


HITRW1 


18AE 11370 FILPOSN 11330 


FILPOSN 


HITRW2 


18B8 11410 FILPOSN 11360 


LOADER 


HKRES$ 


1A6C 15370 


LDOS60 


IF LAG $ 


0072 00850 


$MAIN 


IF LAG $ 


0072 01470 


LDOS60 


INBUF$ 


0420 00860 LOADER 16640 
SYSINIT4 23350 


$MAIN 


INTIM'$ 


003C 00640 TASKER 18540 
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TASKER 


INTLAT 


SMAIN 


INTMSKS 


LDOS60 


INTVC$ 


SMAIN 


INTVCS 


LOADER 


IOFUNC 


FILPOSN 


IOREC 


FILPOSN 


IORETZ 


LDOS60 


JCLCB$ 


SMAIN 


JDCB$ 


SMAIN 


JFCB$ 


LDOS60 


JLDCB$ 


SMAIN 


JRET$ 


SYSINIT4 


KB1 


SYSINIT4 


KB67 


SYSINIT4 


KB 7 


LDOS60 


KCK@ 


SMAIN 


KFLAG$ 


LDOS60 


KFLAG$ 


LDOS60 


K I DAT AS 


LDOS60 


KIDCB$ 


LDOS60 


LBANK$ 


LOADER 


LDR01 


LOADER 


LDR02 


LOADER 


LDR03 


LOADER 


LDR04 


LOADER 


LDR05 


LOADER 


LDR06 


LOADER 


LDR07 


LOADER 


LDR08 


LOADER 


LDR09 


LOADER 


LDR12 


LOADER 


LDR13 


LOADER 


LDR14 


LOADER 


LDR15 


LOADER 


LDR16 


LOADER 


LDR17 


SMAIN 


LDRV$ 


SMAIN 


LF 


SMAIN 


LFLAG$ 


FILPOSN 


LNKFCB0 


LOADER 


LOADER 


FILPOSN 


LOCI 


FILPOSN 


LOC2 


FILPOSN 


LOC3 


LOADER 


LODERR 


SMAIN 


LOWS 


SMAIN 


LSVCS 


SMAIN 


MAXCORS 


FILPOSN 


MAXCYL 


LDOS60 


MAX DAYS 


FILPOSN 


MEA1 


FILPOSN 


MEA2 


SMAIN 


MINCORS 


LOADER 


M0D3BUF 
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00E0 
003 D 
003 E 
003 E 
19F6 



15CB 
136A 
0203 
0024 
00C0 
0230 
0026 
F401 
F460 
F440 
07D6 
0074 
0074 
08FC 
0208 
0202 

1B6F 
1B72 
1B78 
1B8A 
1B66 
1B6A 
1B8E 
1B95 
1B9F 
1BA8 
1BAA 
1BB2 
1BD6 

1BD9 
1BDB 
0023 
000A 
0075 
1566 
1B56 
14BC 
14C8 
14D9 
1BE6 
001 E 
000 D 
2400 

18FE 
0401 
190F 
1915 
3000 
4300 



18510 TASKER 

00700 

00870 

00750 

14190 LOADER 
LOADER 
LOADER 

05890 FILPOSN 

01930 FILPOSN 



00520 
20250 
20260 
20270 



00510 FILPOSN 
03080 



FILPOSN 

SYSINIT4 

SYSINIT4 

SYSINIT4 

TASKER 



SYSINIT4 

TASKER 

SYSINIT4 

LOADER 

LOADER 

LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 
LOADER 



LOADER 

FILPOSN 

FILPOSN 

FILPOSN 

LOADER 

LOADER 

LOADER 

TASKER 

SMAIN 

FILPOSN 

SYSINIT4 

FILPOSN 

FILPOSN 



01690 
00910 
00920 
00930 
00940 

17140 
17150 
17180 
17270 
17070 
17090 
17330 
17390 
17450 
17510 
17560 
17600 
17830 

17850 
17870 
00500 
00120 
01770 
05110 
16960 
03900 
04010 
04130 
17950 
00470 
00370 
03270 

12010 
00950 
12150 
12190 
03280 
18090 



Line#'s of References 
18520 



13860 13900 13920 13940 13960 13980 
14000 14020 14040 14060 14080 14100 
14120 14140 14160 
02080 02530 02970 
01460 

05170 



05160 
23450 
23970 
23450 
18660 



21090 

18400 18720 
20550 

17010 17490 
17790 



17240 
17260 
17100 
17180 
17160 
17480 
17200 
17220 
16970 
17070 
17560 
17940 
17780 
13870 



17610 



17090 17140 17330 17390 17450 
17580 17660 18000 18020 

17840 
14370 



15990 16830 

04290 

03960 

03930 

17650 17770 

13230 13240 

15090 

19260 

03730 

08980 

21730 22170 22290 

12190 

12170 



LOADER 18110 
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SYSINIT4 23760 23820 




SYSINIT4 


M0D4REG 


2098 24430 SYSINIT4 24410 






LDOS60 


M0D0UT$ 


0076 00960 SYSINIT4 20630 24100 




$MAIN 


MODOUT$ 


0076 01920 






LDOS60 


M0NTBL$ 


04DC 00970 SYSINIT4 22840 






FILPOSN 


NEWHIT 


17AF 09650 FILPOSN 08910 






LDOS60 


NFLAG$ 


Wll 00980 TASKER 18380 


18730 




FILPOSN 


NHIT1 


17DE 09900 FILPOSN 09920 






FILPOSN 


NHIT2 


17E6 09950 FILPOSN 09970 






FILPOSN 


NHIT3 


1801 10120 FILPOSN 09750 






FILPOSN 


NHIT4 


181F 10370 FILPOSN 09700 






FILPOSN 


NHIT5 


1844 10600 FILPOSN 10730 






FILPOSN 


NHIT6 


1845 10610 FILPOSN 10570 


10710 




FILPOSN 


NHIT7 


1848 10630 FILPOSN 10540 






FILPOSN 


NHIT8 


184F 10680 






FILPOSN 


NHIT9 


1859 10740 FILPOSN 10640 






SYSINIT4 


NOAUT 


200D 23730 SYSINIT4 23630 






SYSINIT4 


N0AUT1 


1FF4 23590 SYSINIT4 23560 






SYSINIT4 


NOFF 


207F 24260 SYSINIT4 24210 






TASKER 


NOTASK 


1CE9 20010 TASKER 18250 


18250 18250 


18250 18260 






TASKER 18260 


18260 18270 


18270 18270 






TASKER 20170 






SYSINIT4 


NOTLEAP 


1EDA 21730 SYSINIT4 21690 






FILPOSN 


NOTOPEN 


1584 05330 FILPOSN 05190 






SYSINIT4 


NOTSG 


2069 24160 SYSINIT4 24090 






FILPOSN 


NSEC1 


1379 02040 FILPOSN 01530 02010 




FILPOSN 


NSEC2 


1382 02080 






TASKER 


NXTMSK 


1C2D 18620 TASKER 19030 






FILPOSN 


NXTSECT 


1375 02020 FILPOSN 04630 
LOADER 17900 






TASKER 


NXTVCT 


1C29 18590 TASKER 18640 






$MAIN 


OPREG$ 


0078 02140 TASKER 18440 
SYSINIT4 20670 


18690 




LDOS60 


OPREG$ 


0078 00990 






LDOS60 


OPREG SV AREA 


086 E 01000 






LDOS60 


OPREG SV PTR 


0835 01010 






FILPOSN 


ORARETG 


14DC 04180 LOADER 13710 






$MAIN 


OSRLS$ 


003B 00600 






$MAIN 


OSVER$ 


0085 02830 






$MAIN 


OVERLAY 


1E00 03770 LOADER 15670 
SYSINIT4 24610 
$MAIN 03870 






$MAIN 


OVRLY$ 


0069 00890 LOADER 15400 


15620 




LOADER 


OVRLYOLD 


1A70 15390 LOADER 15660 






LDOS60 


PAKNAM$ 


0410 01020 SYSINIT4 20350 






SYSINIT4 


PARSDAT 


20CC 24760 






SYSINIT4 


PARTYR 


2117 25340 SYSINIT4 23010 






LOADER 


PAT1 


1AE1 16090 LOADER 15960 






LOADER 


PAT1A 


1AEC 16170 LOADER 16090 






LOADER 


PAT IB 


1AEF 16180 LOADER 16170 






LDOS60 


PAUSED 


0382 01030 






LDOS60 


PCSAVE$ 


07AF 01040 TASKER 18340 


19250 




LDOS60 


PDRV$ 


001B 01050 






$MAIN 


PDRV$ 


001 B 00450 






$MAIN 


PHIGH$ 


001C 00460 SYSINIT4 20740 






LOADER 


POPERR 


1B0E 16400 LOADER 16600 






TASKER 


POPREGS 


1C58 18980 TASKER 18880 






FILPOSN 


POSN1 


145E 03280 FILPOSN 03130 03170 03730 03810 03830 


FILPOSN 


P0SN2 


1461 03290 FILPOSN 03230 
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FILPOSN 


P0SN2A 


1462 03300 FILPOSN 


03520 


LDOS60 


PRDCB$ 


0218 01060 




SYSINIT4 


PRSD1 


20D1 24780 SYSINIT4 25060 25090 


SYSINIT4 


PRSD2 


20E6 24960 SYSINIT4 24830 24910 


SYSINIT4 


PRSD3 


20F8 25100 SYSINIT4 24820 24900 


SYSINIT4 


PRSD4 


20FC 25130 SYSINIT4 25080 


LDOS60 


PUTA0DE 


0DCD 01070 




LOADER 


PUTLO 


1965 13240 LOADER 


13160 


LDOS60 


PUT @ 


0DCA 01080 




LDOS60 


PUT @ ROWCOL 


0DC6 01090 




FILPOSN 


RDCHAR 


1312 01500 FILPOSN 


04660 


FILPOSN 


RDREC 


1524 04640 FILPOSN 


04720 


FILPOSN 


READIR 


18F1 11920 FILPOSN 


11760 


FILPOSN 


RELCYL 


1919 12250 FILPOSN 


06890 08590 


FILPOSN 


RESTREG 


1589 05380 FILPOSN 


05270 


TASKER 


RETINST 


1C48 18780 $MAIN 


00750 00760 00760 00770 00770 00770 






$MAIN 


00770 


$MAIN 


RFLAG$ 


007B 02250 




LDOS60 


RFLAG$ 


007B 01100 




LDOS60 


ROWCOL 2 ADDR 


0DD0 01110 




LOADER 


RST28 


1A5B 15270 $MAIN 


00530 


TASKER 


RST380 


1BFF 18320 $MAIN 


00590 


LDOS60 


RSTOR$ 


04C4 01120 SYSINIT4 24230 


TASKER 


RTCPROC 


1C94 19450 $MAIN 


00760 


TASKER 


RTCTASK 


1CBB 19640 TASKER 


19480 19550 19570 19590 


FILPOSN 


RWRIT1 


13B0 02310 FILPOSN 


01920 02280 


FILPOSN 


RWRIT2 


13BD 02410 FILPOSN 


04820 


FILPOSN 


RWRIT3 


13C6 02450 FILPOSN 


01680 02070 02520 


FILPOSN 


RWRIT4 


13CA 02490 FILPOSN 


02440 


FILPOSN 


RWRIT5 


13D3 02530 FILPOSN 


02500 


FILPOSN 


RWRIT@ 


13A2 02250 FILPOSN 


03300 04340 04570 


LDOS60 


S1DCB$ 


0238 01130 SYSINIT4 20580 


FILPOSN 


SBIT1 


1871 10960 FILPOSN 


10940 


$MAIN 


SBUFF$ 


1D00 03710 $MAIN 


02980 03090 






FILPOSN 


11310 11680 






LOADER 


16800 17000 


SYSINIT4 


SELDCT 


1FC7 23350 SYSINIT4 23120 


FILPOSN 


SET5 


132A 01620 FILPOSN 


01580 01830 03350 


LOADER 


SETGEXEC 


1A79 15440 LOADER 


15330 


FILPOSN 


SETBIT 


1868 10900 FILPOSN 


09360 


SYSINIT4 SETCYL0 


206B 24180 SYSINIT4 24270 


LDOS60 


SET SCROLL 


0CF3 01140 




$MAIN 


SFCB$ 


008C 02970 LOADER 


15780 15810 15830 15950 15980 


$MAIN 


SFLAG$ 


007C 02370 




LDOS60 


SFLAG$ 


007C 01150 LOADER 


16510 16680 16780 






TASKER 


19160 






SYSINIT4 24060 






SOUND 


25600 25970 


LDOS60 


SIDCB$ 


0220 01160 




SOUND 


SNDLEN 


004F 26430 




SOUND 


SNDOFF 


00B4 26250 SOUND 


26280 26300 26320 26340 26360 26380 






SOUND 


26400 26420 


SOUND 


SNDPORT 


0090 25510 SOUND 


26070 26110 


SOUND 


SNDTAB 


03D1 26270 SOUND 


25830 


LDOS60 


SODCB$ 


0228 01170 




SYSINIT4 


SPACE4 


20FF 25180 SYSINIT4 22770 


SYSINIT4 


SPACE4$ 


2142 25430 SYSINIT4 25190 


LDOS60 


STACKS 


0380 01180 LOADER 


16350 






SYSINIT4 20470 20530 
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SOUND 


25520 










LDOS60 


STARTS 


0000 01190 SMAIN 


00260 03270 03280 03640 03700 








SYSINIT4 20300 










SMAIN 


STARTS 


0000 00250 












SYSINIT4 


STUB 


2056 24060 SYSINIT4 23750 24510 










SYSINIT4 


STUB1 


2059 24070 SYSINIT4 23410 










SYSINIT4 


STUBEND 


20AE 24500 SYSINIT4 24510 










SYSINIT4 


STUBLEN 


0058 24510 SYSINIT4 23770 










FILPOSN 


STUFDEC 


17AB 09600 FILPOSN 


07670 09860 


10030 








LOADER 


SVCERR 


1AF4 16280 LOADER 


12760 12800 


12800 


12800 


12800 


12920 






LOADER 


12940 12940 


12970 


12980 


12980 


12980 






LOADER 


12980 12990 


12990 


12990 


12990 


13000 






LOADER 


13000 13000 


13000 


13010 


13010 


13010 






LOADER 


13010 13020 


13020 


13020 


13020 




SMAIN 


SVCRET$ 


000B 00360 LOADER 


15110 










SMAIN 


SVCTAB$ 


0100 03200 SMAIN 
LOADER 


02790 
12670 15150 










LOADER 


SVCUSER 


1A43 15070 LOADER 


15280 










LOADER 


SYSERR 


1AF7 16300 LOADER 


16050 










LOADER 


SYSERR$ 


1B13 16450 LOADER 


16330 










LOADER 


TAPDRV 


19B8 13870 TASKER 


19100 










FILPOSN 


TBIT1 


1865 10850 FILPOSN 


10840 










SMAIN 


TCB$ 


004E 00810 TASKER 
TASKER 


18240 19650 
20140 20160 


19670 


19830 


19910 


19930 


SMAIN 


TFLAG$ 


007D 02500 SYSINIT4 24430 










SMAIN 


TIMES 


002D 00560 












L DOS 60 


TIMES 


002D 01200 SYSINIT4 23290 










SYSINIT4 


TIMEPR 


2130 25420 SYSINIT4 23140 










LDOS60 


TIMERS 


002C 01210 TASKER 


19600 










SMAIN 


TIMERS 


002C 00550 












SYSINIT4 


TIMIN 


1F99 23100 SYSINIT4 21370 










SYSINIT4 TIMIN0 


1F9F 23130 SYSINIT4 23170 23210 


23250 


23280 






LDOS60 


TIMSLS 


002B 01220 TASKER 


19490 










$MAIN 


TIMSLS 


002 B 00540 












LDOS60 


TIMTSKS 


0713 01230 TASKER 


19520 










LDOS60 


TMPMTS 


04C3 01240 SYSINIT4 23100 










SOUND 


TONER 


001C 26260 SOUND 


26270 26290 26310 


26330 26350 


26370 






SOUND 


26390 26410 










LDOS60 


TRACE INT 


07B1 01250 












LOADER 


TRANSFR 


1A74 15410 LOADER 


16020 










SYSINIT4 


TRKREG 


00F1 20240 SYSINIT4 21060 










TASKER 


TSKEXIT 


1C36 18680 TASKER 


19120 19180 


19270 


19300 


19350 




FILPOSN 


TSTBIT 


185B 10790 FILPOSN 


08730 09250 










TASKER 


TSTBRK 


1C31 18660 TASKER 


18580 










LDOS60 


TYPHKS 


0A8F 01260 












LDOS60 


TYPTSKS 


0B26 01270 TASKER ^ 


18270 










SMAIN 


USTORS 


0013 00420 












FILPOSN 


VEROP 


13E9 02610 FILPOSN 


04780 










SMAIN 


VFLAGS 


007F 02630 












LDOS60 


VFLAGS 


007F 01280 












FILPOSN 


WEOF1 


14F2 04350 FILPOSN 


02780 










FILPOSN 


WRCH1 


1343 01770 FILPOSN 


01720 










FILPOSN 


WRCH2 


136C 01980 FILPOSN 


01710 










FILPOSN 


WRCHAR 


132F 01670 FILPOSN 


01450 04920 










FILPOSN 


WRERROR 


1557 05000 FILPOSN 


04950 










SMAIN 


WRINTS 


0080 02740 SYSINIT4 20650 










FILPOSN 


WRIT1 


1534 04780 FILPOSN 


05100 










FILPOSN 


WRREC 


1547 04880 FILPOSN 


04960 










FILPOSN 


YESEOF 


13FE 02750 
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SYSINIT4 ZERDCB 1E2E 20590 SYSINIT4 20610 
LDOS60 ZEROS 0401 01290 SYSINIT4 21160 
F1LPOSN ZER0A@ 13A0 02200 FILPOSN 02180 02290 02740 

00510 Symbols declared - 00761 References 
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SYS1/SYS 

SYS1 is, among other things, the primary command interpreter. As such, it handles all 
requests for commands in the three system Libraries. It also contains the code for the 
SVCs GCMNDI, 0CMNDR, @FSPEC, 0FEXT, (PPARAM, @EXIT and 0ABORT. SYS1 is normally 
executed by doing an @EXIT or @AB0RT SVC from within a program, or by executing a RET 
instruction as long as the stack pointer is at the same position it was in when the 
program was executed by the DOS. 
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003A 



8000 
A000 
C000 
000A 
000 D 



0000 



0000 



1E00 

1E00 1802 
1E02 241F 
1E04 E670 
1E06 C8 
1E07 FE10 
1E09 2836 
1E0B FE40 
1E0D CA5D20 
1E10 FE50 
1E12 CAD120 
1E15 FE60 
1E17 CAD821 
1E1A FE70 
1E1C C8 



1E1D 112004 
1E20 D5 
1E21 014F00 
1E24 EDB0 
1E26 EB 
1E27 3603 
1E29 El 
1E2A FE30 
1E2C 280E 
1E2E CD5305 
1E31 3A6C00 
1E34 F602 
1E36 326C00 
1E39 C3BC1E 



1E3C CD461E 
1E3F 1871 

1E41 CD461E 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00250 
00260 
03010 
03020 
03030 
03040 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 



;SYS1/ASM - LS-DOS 6.2 

TITLE <SYS1 - LS-DOS 6.2> 



LD A EQU 

h SMALL EQU 



3AH 




LIBA 

LIBB 

LIBC 

LF 

CR 

*LIST 

*LIST 

*GET 



EQU 

EQU 

EQU 

EQU 

EQU 

OFF 

ON 

COPYCOM:3 



08000 H 

0A000H 

0C000H 

10 

13 



;LD A, (nnnn) 

; Switch for "SMALL" or 
; "FULL" library 



;Set bit 5 
;Set bit 6 



;Get SYS0/EQU 
;Copyright message 



; COPYCOM - File for Copyright COMment block 
COM '<*(C) 1982,83,84 by LSI*>' 



ORG 



SYS1 



JR 
DW 
SYS1BGN AND 
RET 
CP 
JR 
CP 
JP 
CP 
JP 
CP 
JP 
CP 
RET 



1E00H 

SYS1BGN 

LIBTBL$ 

70H 

Z 

10H 

Z,CMD 

40H 

Z,FSPEC 

50H 

Z,FEXT 

60H 

Z, PAR AM 

70H 

Z 



;Hop around pointer 
;LIBTBL pointer 
;Strip all but ept 
;Back on zero entry 
;Ck for @EXIT 

;Ck for FSPEC 

;Ck for FEXT 

;Ck for PAR AM 

;Ck for vacant entry 



Entry code for CMNDI (30) and CMNDR (20) SVCs 



LD 

PUSH 

LD 

LDIR 

EX 

LD 

POP 

CP 

JR 

CALL 

LD 

OR 

LD 

JP 



DE,INBUF$ 

DE 

BC,79 

DE,HL 

(HL),3 

HL 

30H 

Z,CMD30 

0CKBRKC 

A,(CFLAG$) 

2 

(CFLAG$),A 

CMD20 



;Move 79 characters 
; from (HL) to buffer 



; Terminate with ETX 

;Recover buffer start 
;Ck entry for CMNDI 
;Go on CMNDI 
;C!ear the Break bit 

;Set CMNDR bit 

;Put it back 

; & go on CMNDR 



Entry for 0EXIT & 0CMNDI 



CMD30 



CMD 



CALL 
JR 

CALL 



CLEANUP 
CMD3A 

CLEANUP 



;Reset Break, stack, etc 
;Reset Break, stack, etc 
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1E46 
1E47 
1E4A 
1E4D 
1E4E 
1E51 
1E54 
1E55 
1E56 
1E59 
1E5A 
1E5C 
1E5E 
1E5F 
1E62 
1E65 
1E67 
1E68 
1E69 
1E6C 
1E6E 
1E6F 
1E70 
1E73 



F3 

210000 

CD6F19 

El 

318003 

010B1B 

C5 

E5 

3A7C00 

07 

3EC9 

3001 

AF 

329F19 

217400 

3EF9 

A6 

77 

217C00 

3EF8 

A6 

77 

21FF2F 

221E00 



1E76 216E08 

1E79 223508 

1E7C 3A6C00 

1E7F E620 

1E81 326C00 

1E84 212004 

1E87 E5 

1E88 CI 

1E89 FB 

1E8A CD5305 

1E8D C9 

1E8E 3A6E00 

1E91 B7 

1E92 2803 

1E94 F68F 

1E96 EF 



1E97 
1E9A 
1E9D 
1EA0 
1EA2 
1EA3 
1EA6 
1EA9 
1EAC 
1EAD 
1EAF 
1EB0 



21EA22 

CD2D05 

216C00 

CBD6 

E5 

212004 

01004F 

CD8505 

E3 

CB96 

El 

388F 



00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 



00810 
00820 
00830 



00850 
00860 
00870 



00890 



00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 



SYSTEM Files 



JR 

CLEANUP 

DI 

LD 

CALL 

POP 

LD 

LD 

PUSH 

PUSH 

LD 

RLCA 

LD 

JR 

XOR 

DBGOFF LD 
LD 
LD 
AND 
LD 
LD 
LD 
AND 
LD 
LD 
LD 



SYS1 - LS-DOS 6.2 



CMDCONT 
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HL,0 

@BREAK 

HL 

SP S STACKS 

BC.GEXIT 

BC 

HL 

A,(SFLAG$) 

A,0C9H 

NC, DBGOFF 

A 

(@DBGHK) S A 

HL 9 KFLAG$ 

A, 111110011 

(HL) 

(HL) S A 

HL,SFLAG$ 

A s 111110001 

(HL) 

(HL) 5 A 

HL,2FFFH 

(LOW$),HL 



;Stop for a moment 
;Reset vectored BREAK 
; to system 
;P/u local RETurn 
;Reset stack pointer 
Establish ret address 

;Put back local return 
; DEBUG to be on or off? 

; Bit 7 5 l=on, 0=off 

;Go if OFF 

; else reset to on 

;Point to KFLAG$ 
;Reset pause and enter 
;Merge together 

; Point to SFLAG 
;Reset 3 lo bits 
;Merge with old 

;Reset L0W$ 



Reset video ram handler pointer 



LD 

LD 

LD 

AND 

LD 

LD 

PUSH 

POP 

EI 

CALL 

RET 



HL s OPREG_SV_AREA 

(0PREG_SV PTR),HL 

A, (CFLAG$T 

20H 

(CFLAG$) S A 

HL,INBUF$ 

HL 

BC 



;P/u CFLAG 

;Leave only bit 5 

; and put it back 

; Point to command line 

;Xfer start 

; to BC 



CMDCONT LD 
OR 
JR 
OR 



CMD1A 



CMD2 



RST 

LD 

CALL 

LD 

SET 

PUSH 

LD 

LD 

CALL 

EX 

RES 

POP 

JR 



@CKBRKC 



A,(EFLAG$) 
A 

Z,CMD1A 
10001111B 

40 

HL S RDYMSG$ 

0DSPLY 

HL S CFLAG$ 

2,(HL) 

HL 

HL 9 INBUF$ 

BC,79<8 

(9KEYIN 

(SP) 5 HL 

2 5 (HL) 

HL 

C.CMD 



;Check and clear BREAK 
;Local cleanup done 

;P/u ECI flag 

;Check if set 

;Go if normal 

;Set for SYS13 but 

; leave user entry code 



;Display ready message 

;Let the world know we 
; are in the command 
; interpreter 
;Get 79 chars max 
;No f i 11 char for now 

;Turn off the interpreter 
; bit & reget the buffer 

;Jump on <BREAK> 
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SYSTEM Fil 
01290 ; 


es 


SYS1 - LS-DOS 6 


.2 Page 00003 




01300 ; 


Entry from @EXIT & @CMNOI 




01310 ; 










01320 CMD3A 








1EB2 7E 


01330 


LD 


A,(HL) 


;Check for comment 


1EB3 FE2E 


01340 


CP 


i i 


;If so go before CR 


1EB5 2805 


01350 
01360 ; 


JR 


Z,CMD20 


; is displayed 


1EB7 3E0D 


01370 


LD 


A,CR 


;Do a line feed on 


1EB9 CD4206 


01380 
01390 ; 


CALL 


@DSP 


; CMNDI and PEXIT 




01400 ; 


Entry from @CMNDR plus 


the above 




01410 ; 










01420 ; 


Always 


bring in bank 






01430 ; 








1EBC AF 


01440 CMD20 


XOR 


A 


; Prepare for bank-0 


1EBD 47 


01450 


LD 


B,A 


;Set function and 


1EBE 4F 


01460 


LD 


C,A 


; bank number to 


1EBF CD7708 


01470 
01480 ; 


CALL 


0BANK 


; Invoke bank 




01490 ; 


Process 


the command entry 




01500 ; 








1EC2 CD0305 


01510 


CALL 


0LOGER 


;Log the entry 


1EC5 11E000 


01520 


LD 


DE,CFCB$ 


; Point to command FCB 


1EC8 7E 


01530 


LD 


A,(HL) 


;Jump on comment 


1EC9 FE2E 


01540 


CP 


i i 




1ECB 2838 


01550 


JR 


Z°COMMENT 




1ECD FE2A 


01560 


CP 


i*i 


;Check if alternate CMD 


1ECF 2006 


01570 


JR 


NZ,CK NOEXC 


; processor needed 


1ED1 E5 


01580 


PUSH 


HL 




1ED2 CI 


01590 


POP 


BC 


;Get Buffer in BC 


1ED3 23 


01600 


INC 


HL 


;Move HL past '*' 


1ED4 3EFF 


01610 


LD 


A.0FFH 


;Set up for SYS13 entry 


1ED6 EF 


01620 


RST 


40 


; #7, and do it 


1ED7 D621 


01630 CKNOEXC 


SUB 


1 ! ' 


;Test for program force 


1ED9 2001 


01640 


JR 


NZ, NOEXC 




1EDB 23 


01650 


INC 


HL 


;Bump past the ' ! ' 


1EDC 32E61E 


01660 NOEXC 


LD 


(TSTEXC+1),A 




1EDF CD5D20 


01670 


CALL 


FSPEC 


;Fetch command spec 


1EE2 201D 


01680 


JR 


NZ,WHAT 


;Jump on error 


1EE4 E5 


01690 


PUSH 


HL 


;Save terminator pointer 


1EE5 3E00 


01700 TSTEXC 


LD 


A,0 


;Test if prog force 


1EE7 B7 


01710 


OR 


A 




1EE8 2808 


01720 


JR 


Z, NOTLIB 


;Jump if starting "!" 


1EEA 01241F 


01730 


LD 


BC,LIBTBL$ 


;Pt to tbl of LIB cmds 


1EED CD5821 


01740 


CALL 


(9FNDPRM 


;Check for a match 


1EF0 281F 


01750 


JR 


Z,CMD4 


;Jump if it is 


1EF2 21E722 


01760 NOTLIB 


LD 


HL,DFTEXT 


;Else assume prg file, so 


1EF5 CDD120 


01770 


CALL 


FEXT 


; default 'EXT' to CMD 


1EF8 El 


01780 


POP 


HL 


;Rcvr terminator pointer 


1EF9 3A6C00 


01790 


LD 


A,(CFLAG$) 


;Ck LIB only execution 


1EFC E610 


01800 


AND 


10H 


;CFLAG$ bit-4 


1EFE CA1D1B 


01810 
01820 ; 


JP 


Z,(9RUN 


;The program else WHAT? 




01830 ; 


Process 


non-entry 






01840 ; 








1F01 21FFFF 


01850 WHAT 


LD 


HL,-1 


;Set to show abort 


1F04 C9 


01860 
01870 ; 


RET 








01880 ; 


Process 


"dot" comment 






01890 ; 
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1F05 3A7C00 
1F08 CB6F 
1F0A CA9D1E 
1F0D 210000 
1F10 C9 



1F11 El 
1F12 3EC9 
1F14 329F19 
1F17 7A 
1F18 07 
1F19 D5 
1F1A D0 
1F1B Dl 
1F1C 43 
1F1D 07 
1F1E 07 
1F1F C684 
1F21 EF 



1F22 AF 
1F23 EF 



1F24 



01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 



COMMENT LD 
BIT 
JP 
LD 
RET 



A, (SFLAG$) 
5, A 

Z,CMD2 
HL s 



Process LIB command 



CMD4 



POP 

LD 

LD 

LD 

RLCA 

PUSH 

RET 

POP 

LD 

RLCA 

RLCA 

ADD 

RST 



HL 

A,0C9H 
(@DBGHK),A 
A,D 

DE 
NC 
DE 
B,E 



A,84H 
28 H 



Ret if <D0> in effect 
else get another 
input line 

Set for no error 



;Rcvr terminator pointer 
;Turn off DEBUG 

;Test bit 7 of high 
; order LIB address 
;Ret to address of 
; vector if bit 7 = 

Else put overlay # in 
Calculate needed library 
by rotating 7-5 into 
2-0 & adding RST base 



BOOT code brings back the ROM 



BOOT IT 



XOR 
RST 



A 
40 



;SVC-0 => @IPL 



; LIBRARY look-up table starts here 

LIBTBL$ EQU $ ;Start of library table 

IF 0SMALL 
; Use this table for SMALL (OEM) library 



DB 'APPEND' 
DW LIBAI31H 

DB 

DW 

DB 

DW 
DB 'BOOT ' 
DW BOOT IT 
DB 'BUILD ' 
DW LIBBI33H 
DB 'CAT ' 
DW LIBA120H 
DB 'CLS 
DW LIBA124H 

DB 

DW 
DB 'CREATE' 
DW LIBB113H 

DB 

DW 
DB 'DEBUG ' 
DW LIBBU4H 
DB 'DEVICE' 
DW LIBA161H 

DB 

DW 



'ATTRIB' 
LIBBI51H 
'AUTO ' 
LIBB111H 



'COPY ' 
LIBA132H 



' DATE ' 
LIBBI15H 



' DIR 

LIBAI21H 
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02510 




DB 


'DO 






02520 




DW 


LIBA191H 






02530 


; DB 


' DUMP ' 








02540 


; DW 


LIBBI71H 








02550 




DB 


'FILTER' 






02560 




DW 


LIBA166H 






02570 




DB 


'FORMS ' 






02580 




DW 


LIBCI0B1H 






02590 


; DB 


'FREE ' 








02600 


, DW 


LIBBI22H 








02610 


, DB 


'LIB 








02620 


, DW 


LIBAI19H 








02630 


, DB 


'LINK ' 








02640 


; DW 


LIBAI62H 








02650 


; DB 


'LIST ' 








02660 


, DW 


LIBAI41H 








02670 


, DB 


' LOAD ' 








02680 


, DW 


LIBA181H 








02690 


, DB 


'MEMORY' 








02700 


DW 


LIBAUEH 








02710 


DB 


'PURGE ' 








02720 


DW 


LIBBI72H 








02730 




DB 


'REMOVE' 






02740 




DW 


LIBA118H 






02750 


DB 


'RENAME' 








02760 , 


DW 


LIBA153H 








02770 . 


DB 


'RESET ' 








02780 , 


DW 


LIBA163H 








02790 s 


DB 


'ROUTE ' 








02800 , 


DW 


LIBA164H 








02810 , 


DB 


'RUN 








02820 , 


DW 


LIBA182H 








02830 




DB 


'SET ' 






02840 




DW 


LIBAI65H 






02850 ; 


DB 


'SETCOM' 








02860 ; 


DW 


LIBC10B2H 








02870 , 


DB 


'SETKI ' 








02880 ; 


DW 


LIBCI0B3H 








02890 ;; 


DB 


'SPOOL ' 








02900" ; 


DW 


LIBCI0A2H 








02910 




DB 


'SYSGEN' 






02920 




DW 


LIBCI1CH 






02930 




DB 


'SYSTEM' 






02940 




DW 


LIBCJ0A1H 






02950 




DB 


'TIME ' 






02960 




DW 


LIBBI16H 






02970 ; 


DB 


'TOF 








02980 ; 


DW 


LIBA125H 








02990 




DB 


'VERIFY' 






03000 




DW 


LIBBilBH 






03010 




NOP 


;Patch 'K' here for KILl 




03020 




DB 


'ILL ' 






03030 




DW 


LIBA118H 






03040 




NOP 








03050 ; 












03060 ; 












03070 




ELSE 








03080 ; 












03090 ; 


This table for FULL library 






03100 ; 










1F24 41 


03110 




DB 


'APPEND' 
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1F2A 3180 




03120 


DW 


LIBAI31H 


1F2C 41 




03130 


DB 


'ATTRIB' 


54 54 


52 


49 42 






1F32 51A0 




03140 


DW 


LIBB151H 


1F34 41 




03150 


DB 


'AUTO ' 


55 54 


4F 20 20 






1F3A 11A0 




03160 


DW 


LIBBI11H 


1F3C 42 




03170 


DB 


' BOOT ' 


4F 4F 


54 


20 20 






1F42 221F 




03180 


DW 


BOOT IT 


1F44 42 




03190 


DB 


'BUILD ' 


55 49 


4C 


44 20 






1F4A 33A0 




03200 


DW 


LIBB133H 


1F4C 43 




03210 


DB 


'CAT 


41 54 20 


20 20 






1F52 2080 




03220 


DW 


LIBAI20H 


1F54 43 




03230 


DB 


■as 


4C 53 


20 


20 20 






1F5A 2480 




03240 


DW 


LIBA124H 


1F5C 43 




03250 


DB 


'COPY ' 


4F 50 59 


20 20 






1F62 3280 




03260 


DW 


LIBA132H 


1F64 43 




03270 


DB 


'CREATE' 


52 45 


41 


54 45 






1F6A 13A0 




03280 


DW 


LIBBU3H 


1F6C 44 




03290 


DB 


' DATE ' 


41 54 


45 


20 20 






1F72 15A0 




03300 


DW 


LIBB115H 


1F74 44 




03310 


DB 


'DEBUG ' 


45 42 


55 


47 20 






1F7A 14A0 




03320 


DW 


LIBBI14H 


1F7C 44 




03330 


DB 


'DEVICE' 


45 56 


49 


43 45 






1F82 6180 




03340 


DW 


LIBAI61H 


1F84 44 




03350 


DB 


'DIR 


49 52 


20 


20 20 






1F8A 2180 




03360 


DW 


LIBA121H 


1F8C 44 




03370 


DB 


'DO 


4F 20 


20 20 20 






1F92 9180 




03380 


DW 


LIBAI91H 


1F94 44 




03390 


DB 


'DUMP ' 


55 4D 50 20 20 






1F9A 71A0 




03400 


DW 


LIBBI71H 


1F9C 46 




03410 


DB 


'FILTER' 


49 4C 


54 


45 52 






1FA2 6680 




03420 


DW 


LIBAI66H 


1FA4 46 




03430 


DB 


'FORMS ' 


4F 52 


4D 


53 20 






1FAA B1C0 




03440 


DW 


LIBCI0B1H 


1FAC 46 




03450 


DB 


'FREE ' 


52 45 


45 


20 20 






1FB2 22A0 




03460 


DW 


LIBB122H 


1FB4 4C 




03470 


DB 


'LIB 


49 42 


20 20 20 






1FBA 1980 




03480 


DW 


LIBA119H 


1FBC 4C 




03490 


DB 


'LINK ' 


49 4E 


4B 


20 20 






1FC2 6280 




03500 


DW 


LIBA162H 


1FC4 4C 




03510 


DB 


'LIST ' 


49 53 


54 


20 20 
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1FCA 4180 




03520 


DW 


LIBA141H 


1FCC 4C 




03530 


DB 


'LOAD ' 


4F 41 


44 


20 20 






1FD2 8180 




03540 


DW 


LIBA181H 


1FD4 4D 




03550 


DB 


'MEMORY' 


45 4D 


4F 


52 59 






1FDA 1E80 




03560 


DW 


LIBA11EH 


1FDC 50 




03570 


DB 


'PURGE ' 


55 52 


47 


45 20 






1FE2 72A0 




03580 


DW 


LIBBI72H 


1FE4 52 




03590 


DB 


'REMOVE' 


45 4D 


4F 


56 45 






1FEA 1880 




03600 


DW 


LIBAI18H 


1FEC 52 




03610 


DB 


'RENAME' 


45 4E 


41 


4D 45 






1FF2 5380 




03620 


DW 


LIBA153H 


1FF4 52 




03630 


DB 


'RESET ' 


45 53 


45 


54 20 






1FFA 6380 




03640 


DW 


LIBAI63H 


1FFC 52 




03650 


DB 


'ROUTE ' 


4F 55 


54 


45 20 






2002 6480 




03660 


DW 


LIBAI64H 


2004 52 




03670 


DB 


'RUN 


55 4E 


20 20 20 






200A 8280 




03680 


DW 


LIBA182H 


200C 53 




03690 


DB 


'SET ' 


45 54 20 


20 20 






2012 6580 




03700 


DW 


LIBAI65H 


2014 53 




03710 


DB 


'SETCOM' 


45 54 


43 


4F 4D 






201A B2C0 




03720 


DW 


LIBC10B2H 


201C 53 




03730 


DB 


'SETKI ' 


45 54 


4B 


49 20 






2022 B3C0 




03740 


DW 


LIBC!0B3H 


2024 53 




03750 


DB 


'SPOOL ' 


50 4F 


4F 


4C 20 






202A A2C0 




03760 


DW 


LIBC10A2H 


202C 53 




03770 


DB 


'SYSGEN' 


59 53 


47 


45 4E 






2032 1CC0 




03780 


DW 


LIBCUCH 


2034 53 




03790 


DB 


'SYSTEM' 


59 53 


54 


45 4D 






203A A1C0 




03800 


DW 


LIBCI0A1H 


203C 54 




03810 


DB 


'TIME ' 


49 4D 


45 


20 20 






2042 16A0 




03820 


DW 


LIBB116H 


2044 54 




03830 


DB 


'TOF 


4F 46 


20 20 20 






204A 2580 




03840 


DW 


LIBA125H 


204C 56 




03850 


DB 


'VERIFY' 


45 52 


49 


46 59 






2052 1BA0 




03860 


DW 


LIBBI1BH 


2054 00 




03870 


NOP 




2055 49 




03880 


DB 


'ILL ' 


4C 4C 


20 


20 






205A 1880 




03890 


DW 


LIBAU8H 


205C 00 




03900 
03910 ; 
03920 
03930 ; 
03940 ; 


NOP 
ENDIF 
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03950 ; 


Routine 


to fetch a f 


il espec/devi cespec 




03960 ; 








205 D D5 


03970 FSPEC 


PUSH 


DE 


;Save pointer to DCB 


205E CD0521 


03980 


CALL 


SPARSER 


; Parse expected command 


2061 203E 


03990 


JR 


NZ S FSP5 


;NZ=not file, ck for device 


2063 FE2F 


04000 


CP 


7' 


;EXT separator? 


2065 2007 


04010 


JR 


NZ,FSP1 




2067 12 


04020 


LD 


(DE),A 


;File extent coming, 


2068 13 


04030 


INC 


DE 


; get it 


2069 0603 


04040 


LD 


B,3 


;EXT is 3-chars max 


206B CD0721 


04050 


CALL 


@PAR1 




206E FE2E 


04060 FSP1 


CP 


i t 


;Password entered? 


2070 2007 


04070 


JR 


NZ,FSP2 




2072 12 


04080 


LD 


(DE),A 


; Password coming, 


2073 13 


04090 


INC 


DE 


; get it also 


2074 CD0521 


04100 


CALL 


SPARSER 




2077 2035 


04110 


JR 


NZ,FSP6 


;Return if error 


2079 FE3A 


04120 FSP2 


CP 


i . i 


;Drive entered? 


207B 2009 


04130 


JR 


NZ,FSP3 




207D 12 


04140 


LD 


(DE),A 


;A one-byte drive 


207E 13 


04150 


INC 


DE 


; has been had 


207F 0601 


04160 


LD 


B,l 




2081 CD0721 


04170 


CALL 


@PAR1 




2084 2028 


04180 


JR 


NZ,FSP6 


, Return if error 


2086 FE21 


04190 FSP3 


CP 


' I ' 


;Update EOF always? 


2088 2004 


04200 


JR 


NZ S FSP4 




208A 12 


04210 


LD 


(DE),A 


;Yes, slow but accurate 


208B 13 


04220 


INC 


DE 


;Inc buffer pointers 


208C 23 


04250 


INC 


HL 




208D 7E 


04240 


LD 


A,(HL) 




208E 4F 


04250 FSP4 


LD 


C,A 


;Save separator char 


208F 3E03 


04260 


LD 


A,3 




2091 12 


04270 


LD 


(DE) S A 


; Stuff an ETX 


2092 AF 


04280 


XOR 


A 




2093 79 


04290 


LD 


A,C 


;P/u separator 


2094 Dl 


04300 


POP 


DE 


;P/u start of DCB 


2095 D5 


04310 


PUSH 


DE 




2096 01B020 


04320 


LD 


BC, PREPTBL 


;Ck on prepositions 


2099 CD5821 


04330 


CALL 


(3FNDPRM 




209C Dl 


04340 


POP 


DE 


;Can use TO, ON, 


209D 28BE 


04350 


JR 


Z, FSPEC 


; OVER, USING 


209F AF 


04360 


XOR 


A 




20A0 C9 


04370 


RET 






20A1 FE2A 


04380 FSP5 


CP 


'*' 


;Ck on device spec 


20A3 2009 


04390 


JR 


NZ S FSP6 


;Jump if not device 


20A5 12 


04400 


LD 


(DE),A 


; else stuff the '*' 


20A6 13 


04410 


INC 


DE 




20A7 0602 


04420 


LD 


B,2 


;Xfer two char device 


20A9 CD0721 


04430 


CALL 


@PAR1 




20AC 28E0 


04440 


JR 


Z,FSP4 


; Terminate buffer 


20AE Dl 


04450 FSP6 


POP 


DE 




20AF C9 


04460 
04470 ; 


RET 








04480 ; 


Preposi 


tion table 






04490 ; 








20B0 54 


04500 PREPTBL DB 


'TO 




4F 20 


20 20 20 








20 B6 001 D 


04510 


DW 


SBUFF$ 




20B8 4F 


04520 


DB 


'ON 




4E 20 


20 20 20 








20 BE 001 D 


04530 


DW 


SBUFF$ 
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20C0 4F 


04540 


DB 




'OVER ' 






56 45 


52 20 20 












20C6 001D 


04550 


DW 




SBUFF$ 






20C8 55 


04560 


DB 




'USING ' 






53 49 


4E 47 20 












20CE 001D 


04570 


DW 




SBUFF$ 






20D0 00 


04580 
04590 


NOP 

5 












04600 


; Fetch 


default fil 


e ex 


tension 




04610 


» 










20D1 D5 


04620 FEXT PUSH 




DE 




;Save FCB pointer 


20D2 E5 


04630 


PUSH 




HL 




;Save EXT default pointer 


20D3 EB 


04640 


EX 




DE,HL 




;Exchange pointers 


20D4 23 


04650 


INC 




HL 






20D5 0609 


04660 


LD 




B,9 




;Init for 9-char test 


20D7 7E 


04670 FEX1 LD 




A,(HL) 




;Ret if extension start 


20D8 FE2F 


04680 


CP 




7' 




; is found 


20 DA 280 D 


04690 


JR 




Z,FEX3 






20DC 380E 


04700 


JR 




C.FEX4 




;Jump on other separator 


20DE FE3A 


04710 


CP 




i . i 




;Jump on digit 0-9 


20E0 3804 


04720 


JR 




C,*FEX2 






20E2 FE41 


04730 


CP 




'A' 




;Jump on special char 


20E4 3806 


04740 


JR 




C.FEX4 






20E6 23 


04750 FEX2 INC 




HL 




;Advance past A-Z 5 0-9 


20E7 10EE 


04760 


DJNZ 




FEX1 






20E9 El 


04770 FEX3 POP 




HL 




;User entered file ext 


20EA Dl 


04780 


POP 




DE 




;FCB start 


20EB C9 


04790 
04800 


RET 
» 












04810 


; Use def 


ault exten 


si on 






04820 


» 










20EC 010F00 


04830 FEX4 LD 




BC,15 




;Point to position past 


20EF 09 


04840 


ADD 




HL S BC 




; the filespec 


20F0 54 


04850 


LD 




D,H 






20F1 5D 


04860 


LD 




E,L 






20F2 13 


04870 


INC 




DE 




;Make room for '/EXT' 


20F3 13 


04880 


INC 




DE 




; which is 4 chars 


20F4 13 


04890 


INC 




DE 






20F5 13 


04900 


INC 




DE 






20F6 03 


04910 


INC 




BC 




;Now move 16 bytes 


20F7 EDB8 


04920 


LDDR 










20F9 El 


04930 


POP 




HL 




;Recover pointer to EXT 


20FA 23 


04940 


INC 




HL 




;Point to 3rd char 


20FB 23 


04950 


INC 




HL 






20FC 0E03 


04960 


LD 




C,3 




;Move in 3 chars 


20FE EDB8 


04970 


LDDR 










2100 3E2F 


04980 


LD 




A,'/' 




;Put in the slash 


2102 12 


04990 


LD 




(DE),A 






2103 Dl 


05000 


POP 




DE 




;Point back to FCB 


2104 C9 


05010 
05020 


RET 












05030 . 


Get the 


code for 


the @PARAM SVC 




05040 












2105 


05050 * 


*GET PARAM 


:3 










03050 s 


PARAM/ASM - 


LS 


-DOS 6.2 








03060 














03070 . 


Parse 


a 


field 








03080 


(HL) 


=> 


command 1 


ine 






03090 


(DE) 


=> 


FCB area 








03100 


(HL) 


<= 


1st byte 


past 


non-<A-Z, a-z, 0-9> 




03110 s 






except 13 


, 3, 


"(" 
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03120 


9 


Z 


<= found val id f i 


eld 




03130 


9 


NZ 


<= found invalid 


field 




03140 


9 








2105 0608 


03150 SPARSER 


LD 


B,8 


;Set length 


2107 78 


03160 @PAR1 


LD 


A,B 




2108 324621 


03170 




LD 


(PAR6+1),A 


;Stuff length for test 


210B 04 


03180 




INC 


B 




210C 7E 


03190 


PAR 2 


LD 


A,(HL) 




210D FE03 


03200 




CP 


3 


;ETX? 


210F 2826 


03210 




JR 


Z.PAR5 




2111 FE0D 


03220 




CP 


CR 


;<ENTER>? 


2113 2822 


03230 




JR 


Z,PAR5 




2115 FE28 


03240 




CP 


'(' 


; Begin of parm? 


2117 281E 


03250 




JR 


Z,PAR5 




2119 23 


03260 




INC 


HL 


;Bump pointer to next 


211A CD4A21 


03270 




CALL 


TST09AZ 


;Test if 0-9, A-Z 


211D 300A 


03280 




JR 


NC S PAR3 


;Go if one of the above 


211F FE61 


03290 




CP 


'a' 


;Check on lower case 


2121 3814 


03300 




JR 


C S PAR5 


;Jump on non-alpha 


2123 FE7B 


03310 




CP 


'z'+l 


;Is it a-z? 


2125 3010 


03320 




JR 


NC,PAR5 


;Jump on non-alpha 


2127 CBAF 


03330 




RES 


5, A 


;Convert lower to upper 


2129 05 


03340 


PAR 3 


DEC 


B 


;Count down 


212A 2808 


03350 




JR 


Z,PAR4 




212C 12 


03360 




LD 


(DE),A 


;Xfer the char 


212D AF 


03370 




XOR 


A 


;Show at least 1 valid 


212E 324621 


03380 




LD 


(PAR6+1),A 


;Char was detected 


2131 13 


03390 




INC 


DE 


;Bump FCB pointer 


2132 18D8 


03400 




JR 


PAR 2 


;Loop 


2134 04 


03410 


PAR 4 


INC 


B 


;Here on max chars ck'd 


2135 18D5 


03420 




JR 


PAR2 




2137 4F 


03430 


PAR 5 


LD 


C,A 


;Save separator 


2138 3E03 


03440 




LD 


A, 3 


;Stuff ETX 


Cm X r\ X.C 


03450 
03460 


9 


LD 


(DE),A 






03470 


» 


Skip 


over spaces 






03480 


9 








213B 79 


03490 




LD 


A,C 


;Was separator a space? 


213C FE20 


03500 




CP 


1 ' 




213E 2005 


03510 




JR 


NZ,PAR6 


;Don't skip if not 


2140 BE 


03520 


PAR5A 


CP 


(HL) 


;Next char a space? 


2141 23 


03530 




INC 


HL 




2142 28FC 


03540 




JR 


Z,PAR5A 


;Loop until not 


2144 2B 


03550 
03560 




DEC 


HL 


;Backup to last non-space 




03570 




Return status of fielc 


i validity 




03580 










2145 3E00 


03590 


PAR 6 


LD 


A,0 


;Set Z-flag if at least 


2147 B7 


03600 




OR 


A 


; 1 valid char detected 


2148 79 


03610 




LD 


A,C 


;Recover separator char 


2149 C9 


03620 
03630 




RET 








03640 




Test 


if 0-9 or A-Z 






03650 










214A FE30 


03660 TST09AZ 


CP 


'0- 


;Special character? 


214C D8 


03670 




RET 


C 


;Go if not in range 


214D FE3A 


03680 




CP 


'9'+l 


;Jump on digit 0-9 


214F 3805 


03690 




JR 


CEXITC 


;Go if 0-9 & make NC 


2151 FE41 


03700 




CP 


'A' 


;Jump on spec char 


2153 D8 


03710 




RET 


C 


;Go if 3B-40 


2154 FE5B 


03720 




CP 


'Z'+l 


;Jump on A-Z 
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2156 3F 


03730 [ 


EXITC CCF 






;Switch flag of result 


2157 C9 


03740 
03750 


RET 










03760 


; Find 


parameter in table 






03770 


; (HL) 


-> pointer to 


line 






03780 , 


; (DE) 


=> pointer to 


buffer area 




03790 


(BC) 


=> pointer to 


parameter table 




03800 


; (BC) 


<= pointer to 


aossible response byte 




03810 . 


; (DE) 


<= parm vector 


address 




03820 


z < 


= set if found 








03830 


NZ < 


= if not found 


in 


table 




03840 , 










2158 E5 


03850 (3FNDPRM PUSH 


HL 






2159 60 


03860 


LD 


H,B 




;Xfer table addr 


215A 69 


03870 


LD 


L S C 






215B 7E 


03880 


LD 


A,(HL) 




;P/u 1st byte of table 


215C 07 


03890 


RLCA 






; & test for enhanced 


215D F5 


03900 


PUSH 


AF 




; table format 


215E 3001 


03910 


JR 


NC,FND1 






2160 23 


03920 


INC 


HL 




;Bump past indicator 


2161 Fl 


03930 FNDl POP 


AF 




;01d or enhanced format? 


2162 F5 


03940 


PUSH 


AF 






2163 3E05 


03950 


LD 


A,5 




;Init for old lengths 


2165 010201 


03960 


LD 


BC,1<8!2 






2168 3006 


03970 


JR 


NC,FND1A 




; Branch if old format 


216A 7E 


03980 


LD 


A,(HL) 




; else get parm length 


216B E60F 


03990 


AND 


0FH 




; Strip flags 


216D 3D 


04000 


DEC 


A 




;Adjust for length-1 


216E 04 


04010 


INC 


B 




;Update offset to address 


216F 23 


04020 


INC 


HL 




;Bump past TYPE byte 


2170 329E21 


04030 FND1A LD 


(FND3A+1),A 




;Stuff the lengths 


2173 80 


04040 


ADD 


A,B 






2174 32B821 


04050 


LD 


(FND5A+1),A 






2177 81 


04060 


ADD 


A,C 






2178 328021 


04070 


LD 


(FND2+1),A 






217B 1A 


04080 


LD 


A,(DE) 




;P/u command line byte 


217C BE 


04090 


CP 


(HL) 




;Match 1st char of table? 


217D 280C 


04100 


JR 


Z,FND3 




;Jump if 1st char matches 


217F 010800 


04110 FND2 LD 


BC S 8 




; else bypass that entry 


2182 09 


04120 


ADD 


HL,BC 






2183 7E 


04130 


LD 


A,(HL) 




;Test for table end 


2184 B7 


04140 


OR 


A 






2185 20DA 


04150 


JR 


NZ,FND1 




;Loop if more 


2187 El 


04160 


POP 


HL 




;Clean flag from stack 


2188 El 


04170 


POP 


HL 




;Rcvr saved reg & 


2189 3C 


04180 


INC 


A 




; set NZ for not found 


218A C9 


04190 


RET 








218B Fl 


04200 FND3 POP 


AF 




;Ck old or new table 


218C F5 


04210 


PUSH 


AF 






218D 300E 


04220 


JR 


NC,FND3A 




;Go if old format table 


218F 2B 


04230 


DEC 


HL 




;Ck if type byte permits 


2190 CB66 


04240 


BIT 


4,(HL) 




; single-char abbrev 


2192 23 


04250 


INC 


HL 






2193 2808 


04260 


JR 


Z.FND3A 




;Go on no abbrev 


2195 13 


04270 


INC 


DE 




;Make sure the next char 


2196 1A 


04280 


LD 


A,(DE) 




; is not in the range 


2197 IB 


04290 


DEC 


DE 




; <0-9,A-Z> before 


2198 CD4A21 


04300 


CALL 


TST09AZ 




; assuming abbrev 


219B 381A 


04310 


JR 


CFND5A 




;Go on 1-char abbrevs 


219D 0605 


04320 FND3A LD 


B,5 




;5 more chars to match 


219F E5 


04330 


PUSH 


HL 
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21A0 
21A1 
21A2 
21A3 
21A5 
21A6 
21A7 
21A8 
21AA 
21AC 

Cm XMC 

21 B0 
21B1 
21B3 
21B5 
21B6 
21B7 
21 BA 
21 BB 
21 BC 
21BD 
21BE 
21 BF 
21C0 
21C1 
21C2 
21C4 
21C6 
21C7 
21C8 
21C9 
21CC 
21CE 
21CF 
21D1 
21D3 
21D4 
21D5 



D5 

78 

B7 

2810 

13 

23 

1A 

FE03 

2822 

FE0D 

281E 

BE 

2016 

10F0 

Dl 

El 

010600 

09 

4D 

44 

0B 

5E 

23 

56 

Fl 

3802 

061 D 

El 

AF 

C9 

CD4A21 

3005 

7E 

FE20 

28E2 

Dl 

El 

18A8 



04340 

04350 

04360 

04370 

04380 FND4 

04390 



21D7 23 
21D8 7E 
21D9 FE0D 
21DB C8 
21DC FE20 
21DE 28F7 
21E0 FE28 
21E2 205E 
21E4 1A 
21E5 07 
21E6 3017 
21E8 D5 
21E9 13 
21EA E5 



04410 

04420 

04430 

04440 

04450 

04460 

04470 

04480 FND5 

04490 

04500 FND5A 

04510 

04520 

04530 

04540 

04550 

04560 

04570 

04580 

04590 

04600 

04610 

04620 

04630 

04640 FND6 

04650 

04660 FND7 

04670 

04680 

04690 FND8 

04700 

04710 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 PARAM0 

04820 PARAM 

04830 

04840 

04850 

04860 

04870 

04880 

04890 

04900 

04910 

04920 

04930 

04940 



PUSH 

LD 

OR 

JR 

INC 

INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DJNZ 

POP 

POP 

LD 

ADD 

LD 

LD 

DEC 

LD 

INC 

LD 

POP 

JR 

LD 

POP 

XOR 

RET 

CALL 

JR 

LD 

CP 

JR 

POP 

POP 

JR 



DE 

A,B 

A 

Z,FND5 

DE 

HL 

A,(DE) 

3 

Z,FND7 

CR 

Z,FND7 

(HL) 

NZ,FND6 

FND4 

DE 

HL 

BC,6 

HL.BC 

C,L 

B,H 

BC 

E,(HL) 

HL 

D,(HL) 

AF 

C,$+4 

B,SBUFF$<-8 

HL 

A 

TST09AZ 
NC,FND8 
A,(HL) 

Z,FND5 
DE 
HL 
FND2 



; Don't if trailing length 
; is zero 



;ETX? 

;Jump on <ENTER> 

;Match? 

;Jump if not 

; else loop 

;Parm matched 

; Recover begin of parm 

;Point to address field 

;Save the response-byte 
; pointer in BC 

;P/u parm table address 



If not enhanced, change 
pointer to bucket 
so we don't alter user 

Recover line position 

Show found 

Ck if 0-9, A-Z 
Go if in range of above 
Loop if table has 
trailing spaces 



PARAM routine 

(HL) => param line 

(DE) => parm table 

(DE) <= table address value 

C <= # of parm 

Z = OK 

NZ = parm error 



INC 

LD 

CP 

RET 

CP 

JR 

CP 

JR 

LD 

RLCA 

JR 

PUSH 

INC 

PUSH 



HL 

A,(HL) 

CR 

Z 
i i 

Z,PARAM0 
'(* 

NZ,PARAM5 
A,(DE) 

NC, PAR AMI 

DE 

DE 

HL 



;Bump the pointer 
; and p/u char 

;Return on enter 

;Loop on space 

;Jump if not left paren 
;Check if enhanced table 



;Save pointer to start 
; Point to 1st TYPE byte 
;Save this posn 
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21EB 1A 


04960 $?1 


LD 


A S (DE) ; 


P/u TYPE byte 


21EC E60F 


04970 


AND 


0FH 




21EE 280D 


04980 


JR 


Z,$?2 ; 


Exit on end of table 


21F0 6F 


04990 


LD 


L,A ; 


Point to response byte 


21F1 2600 


05000 


LD 


H,0 




21F3 2C 


05010 


INC 


L 




21F4 19 


05020 


ADD 


HL,DE 




21F5 3600 


05030 


LD 


(HL),0 ; 


Zero the response 


21F7 23 


05040 


INC 


HL ; 


Bump to the next TYPE 


21F8 23 


05050 


INC 


HL 




21F9 23 


05060 


INC 


HL 




21FA EB 


05070 


EX 


DE,HL ; 


Table pointer back to D 


21FB 18EE 


05080 
05090 ; 


JR 


$?l ; 


Loop thru all response 


21FD El 


05100 $?2 


POP 


HL ; 


Rcvr reg 


21FE Dl 


05110 


POP 


DE ; 


& start of parm table 


21FF D5 


05120 PARAM1 


PUSH 


DE 




2200 060F 


05130 


LD 


B s 15 ; 


Max 15-char field 


2202 11001D 


05140 


LD 


DE S SBUFF$ ; 


Point to buffer region 


2205 23 


05150 


INC 


HL ; 


Bypass the ' (' 


2206 CD0721 


05160 


CALL 


0PAR1 ; 


Get the field 


2209 2B 


05170 


DEC 


HL ; 


Backup to separator 


220A Dl 


05180 


POP 


DE 




220B 2013 


05190 


JR 


NZ 5 ERROUT ; 


Return if bad field 


220D FE0D 


05200 


CP 


CR ; 


If separator was a CR, 


220F 2001 


05210 


JR 


NZ,$+3 ; 


we need to counteract 


2211 23 


05220 


INC 


HL ; 


the DEC HL above 


2212 D5 


05230 


PUSH 


DE 




2213 42 


05240 


LD 


B S D ; 


Table pointer to BC 


2214 4B 


05250 


LD 


C,E 




2215 11001D 


05260 


LD 


DE S SBUFF$ ; 


Parm in table? 


2218 CD5821 


05270 


CALL 


0FNDPRM 




221B C5 


05280 


PUSH 


BC ; 


Save response pointer 


221C 2805 


05290 
05300 ; 


JR 


Z,PARAM3 ; 


Jump if found in table 




05310 ; 


Parameter not in table - 


NZ condition 




05320 ; 








221E Dl 


05330 PARAM2 


POP 


DE ; 


Pop response pointer 


221F Dl 


05340 


POP 


DE 


Pop parm table pointer 


2220 3E2C 


05350 ERROUT 


LD 


A, 44 ; 


Set up PARM ERROR 


2222 C9 


05360 
05370 ; 


RET 








05380 ; 


Parameter found in table 


- parse the value 




05390 ; 








2223 7E 


05400 PARAM3 


LD 


A S (HL) 


Test for assignment 


2224 FE3D 


05410 


CP 


i _ i 




2226 281C 


05420 


JR 


Z, ASSIGN 


.Jump if parm=value 


2228 01FFFF 


05430 


LD 


BC,-1 


, else set symbol TRUE 


222B E3 


05440 PARMSW 


EX 


(SP),HL 


Get response byte 


222C CBF6 


05450 
05460 ; 


SET 


6,(HL) 


.Turn on FLAG-SWITCH 




05470 ; 


Valid 


parm argument parse 


id into reg BC 




05480 ; 








222E EB 


05490 PARAM4 


EX 


DE,HL 


, Address pointer to HL 


222F 71 


05500 


LD 


(HL),C 


;Stuff lo-order value 


2230 23 


05510 


INC 


HL 




2231 70 


05520 


LD 


(HL),B 


;Stuff hi -order value 


2232 El 


05530 


POP 


HL 


;Rcvr parm line pointer 


2233 Dl 


05540 


POP 


DE 


;Rcvr parm table pointer 


2234 7E 


05550 


LD 


A,(HL) 
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2235 FE2C 


05560 


CP 




;Comma separator? 


2237 28C6 


05570 


JR 


Z,PARAM1 




2239 FE0D 


05580 


CP 


CR 




223B 2805 


05590 


JR 


Z,PARAM5 




223D FE29 


05600 


CP 


*)' 


;Closing paren? 


223F 20DF 


05610 


JR 


NZ,ERROUT 


; Leave with ERROR 


2241 23 


05620 


INC 


HL 


;Bump line pointer 


2242 AF 


05630 PARAM5 


XOR 


A 


;Show all OK 


2243 C9 


05640 
05650 ; 


RET 








05660 ; 


Parameter assignment statement 




05670 ; 








2244 23 


05680 ASSIGN 


INC 


HL 


;Advance token past '=' 


2245 7E 


05690 


LD 


A,(HL) 




2246 FE22 


05700 


CP 


i ii i 


;Double quote string? 


2248 282A 


05710 


JR 


Z, STRING 




224A FE41 


05720 


CP 


'A' 


;Ck on digit or 


224C 3815 


05730 


JR 


C.ASS3 


; special character 


224E CBAF 


05740 


RES 


5,A 


;Strip 1/c if present 


2250 FE58 


05750 


CP 


'X' 


; Hexadecimal? 


2252 2807 


05760 


JR 


Z,ASS1 




2254 CD9222 


05770 


CALL 


ONOFF 


;Ck on Y, N, ON, OFF 


2257 28D2 


05780 


JR 


Z,PARMSW 


;Set FLAG-SWITCH if OK 


2259 18C3 


05790 


JR 


PARAM2 


; else error exit 


225B 23 


05800 ASS1 


INC 


HL 




225C CDBA22 


05810 


CALL 


HEXVAL 


;Ck on hex format 


225F 20BD 


05820 


JR 


NZ 9 PARAM2 


;Error if bad format 


2261 1807 


05830 
05840 ; 


JR 


ASS3A 


; else bypass & set res| 




05850 ; 


Is the 


parameter numeric or flag ? 




05860 ; 








2263 FE30 


05870 ASS3 


CP 


'0' 


;Parameter=number ? 


2265 F5 


05880 


PUSH 


AF 


;CF = if number 


2266 CDE103 


05890 


CALL 


0DECHEX 


;Cvt # I? HL to bin in DE 


2269 Fl 


05900 


POP 


AF 




226A E3 


05910 ASS3A 


EX 


(SP),HL 


;Get response pointer 


226B 3003 


05920 


JR 


NC,ASS4 


;Show numeric if CF=0 


226D CBF6 


05930 


SET 


6 S (HL) 


; otherwise show switch 


226F 3A 


05940 


DB 


LD A 


; Ski p next instruction 


2270 CBFE 


05950 ASS4 


SET 


7 9 (HL) 


;Set Numeric response bi 


2272 18BA 


05960 
05970 ; 


JR 


PARAM4 






05980 ; 


Parameter string entry 






05990 ; 








2274 23 


06000 STRING 


INC 


HL 


; Bypass "" 


2275 44 


06010 


LD 


B,H 


;Save starting address 


2276 4D 


06020 


LD 


C,L 




2277 7E 


06030 STR1 


LD 


A,(HL) 


;P/u a char 


2278 FE20 


06040 


CP 


20H 




227A 38A2 


06050 


JR 


C.PARAM2 


;Exit on control char 


227C 23 


06060 


INC 


HL 


;Bump pointer 


227D FE22 


06070 


CP 


i H i 


.Closing double quote 


227F 20F6 


06080 


JR 


NZ,STRl 




2281 E5 


06090 


PUSH 


HL 


;Save current pointer 


2282 ED42 


06100 


SBC 


HL,BC 


;Calc length of string 


2284 7D 


06110 


LD 


A,L 




2285 3D 


06120 


DEC 


A 


;Adjust for INC HL 


2286 FE20 


06130 


CP 


32 


;If len > 31, set to 


2288 3801 


06140 


JR 


C,$+3 




228A AF 


06150 


XOR 


A 




228B El 


06160 


POP 


HL 


;Rcvr pointer 
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228C E3 


06170 




EX 


(SP),HL 


;Get response byte 


228D F620 


06180 




OR 


20H 


;Set FLAG-STRING 


228F 77 


06190 




LD 


(HL),A 




2290 189C 


06200 
06210 




JR 


PARAM4 






06220 




Check 


for Yes, No, 


On, Off 




06230 










2292 010000 


06240 ONOFF 


LD 


BC,0 


;Init to FALSE 


2295 D659 


06250 




SUB 


, Y . 


;Is it Yes? 


2297 2811 


06260 




JR 


Z,ON01 


;Jump on yes 


2299 C60B 


06270 




ADD 


A/Y'-'N' 


;Is it No? 


229B 2810 


06280 




JR 


Z,0N02 


;Jump on no 


229D 3D 


06290 




DEC 


A 


;Is it 'O'n or 'O'ff? 


229E C0 


06300 




RET 


NZ 


;Return if not on/off 


229F 23 


06310 




INC 


HL 


;Bump pointer to next 


22A0 7E 


06320 




LD 


A,(HL) 


; character & p/u 


22A1 CBAF 


06330 




RES 


5, A 


;Set lower to upper 


22A3 FE46 


06340 




CP 


'F' 




22A5 2806 


06350 




JR 


Z,0N02 


;Jurnp on off 


22A7 FE4E 


06360 




CP 


'N' 




22A9 C0 


06370 




RET 


NZ 


; Return if not on 


22AA 01FFFF 


06380 ONOl 


LD 


BC,-1 


; Init to true 


22AD 23 


06390 ON02 


INC 


HL 


; Ignore trailing part 


22AE 7E 


06400 




LD 


A,(HL) 


; of word until closing 


22AF FE29 


06410 




CP 


')' 


; ")" or comma separator 


22B1 C8 


06420 




RET 


Z 


; or CR 


22B2 FE0D 


06430 




CP 


CR 




22B4 C8 


06440 




RET 


Z 




22B5 FE2C 


06450 




CP 


i i 

3 




22B7 C8 


06460 




RET 


z 




22B8 18F3 


06470 
06480 


» 


JR 


ON02 


;Loop 




06490 


s 


Proces 


s hexadecima 


1 assignment 




06500 


» 








22 BA 010000 


06510 


HEXVAL 


LD 


BC,0 


;Init value to zero 


22BD 7E 


06520 




LD 


A,(HL) 


;P/u a char 


22BE FE27 


06530 




CP 


27H 


;Must be single quote 


22C0 C0 


06540 




RET 


NZ 


;Ret if not 


22C1 23 


06550 


HEX1 


INC 


HL 


;Bump past it 


22C2 7E 


06560 




LD 


A,(HL) 


;P/u possible hex digit 


22C3 D630 


06570 




SUB 


30H 


;Begin conversion 


22C5 380C 


06580 




JR 


C.HEX2 


;Jump if < "0" 


22C7 FE0A 


06590 




CP 


10 


;Ck for 0-9 


22C9 3810 


06600 




JR 


C,HEX3 


;Jump if digit is 0-9 


22 CB CBAF 


06610 




RES 


5, A 


; Strip 1/c if present 


22CD D607 


06620 




SUB 


7 


; else ck A-F 


22CF FE10 


06630 




CP 


16 




22D1 3808 


06640 




JR 


C,HEX3 


;Jump if A-F 


22D3 7E 


06650 


HEX2 


LD 


A,(HL) 


;Test for closing quote 


22 D4 FE27 


06660 




CP 


27H 




22D6 23 


06670 




INC 


HL 


;Bump pointer 


22D7 C8 


06680 




RET 


Z 


;Ret if closing quote 


22D8 2B 


06690 




DEC 


HL 


; else backup, set OK, 


22 D9 AF 


06700 




XOR 


A 


; then return 


22DA C9 


06710 




RET 






22DB C5 


06720 


HEX3 


PUSH 


BC 


;Exchange BC & HL 


22DC E3 


06730 




EX 


(SP),HL 


; and save HL 


22DD 29 


06740 




ADD 


HL,HL 


; Multiply by 16 


22DE 29 


06750 




ADD 


HL,HL 




22 DF 29 


06760 




ADD 


HL,HL 




22E0 29 


06770 




ADD 


HL,HL 





Page 146 



The Source 

22E1 44 
22E2 85 
22E3 4F 
22E4 El 
22E5 18DA 

22E7 43 

4D 44 



22 EA 0A 

0E 54 52 
52 65 61 

22F9 



23FE 

23FE F904 
1E00 



SYSTEM Files 



06780 
06790 



LD 

ADD 

LD 

POP 

JR 



06810 

06820 

05060 ; 

05070 DFTEXT DB 



05080 IF 
05090 RDYMSG$ DB 
05100 ELSE 
05110 RDYMS6$ DB 
53 44 4F 53 20 
64 79 0D 

05120 ENDIF 
05130 LAST EQU 
05140 IFGT 
05150 ERR 
05160 ENDIF 
05170 ORG 
05180 DW 
05190 END 



SYS1 - LS-DOS 6.2 Page 00016 

; Merge new digit 



B,H 

A,L 

C,A 

HL 

HEX1 

'CMD' 



; Recover pointer 
; Loop 

;Default extension 



@M0D2 

LF,14 9 ' LS-DOS Ready', CR 

LF,14,'TRSD0S Ready',CR 



$ S DIRBUF$ 
'Module too big' 



MAXC0RS-2 
LAST-SYS1 
SYS1 



;Size of overlay 
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$?1 


21EB $?2 


21FD $A1 


03B7 


$A2 


03 B8 $A3 


03B9 $CKEOF 


1470 


@$SYS 


08F0 001 


0000 (902 


0000 


<a@3 


0000 @@4 


0000 0ABORT 


1B08 


@ADTSK 


1CDA 0BANK 


0877 (9BKSP 


1486 


0BREAK 


196F 0BYTEIO 


1300 @CHNIO 


0689 


0CKBRKC 


0553 0CKDRV 


1993 0CKEOF 


158F 


0CKTSK 


1CF5 @CLOSE 


1999 0CLS 


0545 


0CMNDI 


197E (3CMNDR 


197B @CTL 


0623 


@DATE 


07A8 0DBGHK 


199F @DCINIT 


19C0 


0DCRES 


19C4 0DCSTAT 


19B5 (3DCTBYT 


1A2B 


0DEBUG 


19A0 0DECHEX 


03E1 @DIRCYL 


18F7 


0DIRRD 


18BB 0DIRWR 


1803 0DIV16 


06 E3 


0DIV8 


1927 @DODIR 


19AF @DOKEY 


19A9 


@DSP 


0642 GDSPLY 


052D TERROR 


1B0F 


@EXIT 


1B0B 0FEXT 


1984 @FLAGS 


196A 


0FNAME 


199C (9FNDPRM 


2158 (3FRENCH 


0000 


@FSPEC 


1981 @GATRD 


1874 @GATWR 


1875 


(3GERMAN 


0000 @GET 


0638 0GTDCB 


1990 


0GTDCT 


1A1E 0GTMOD 


19B2 @HDFMT 


19E4 


0HEX16 


07BD (PHEX8 


07C2 PHEXDEC 


06F6 


@HIGH$ 


1948 0HITRD 


1897 @HITWR 


1898 


@HZ50 


0000 0ICNFG 


0086 @INIT 


198D 


0INTL 


0000 @IPL 


1BF2 @JCL 


0630 


@KBD 


0635 @KEY 


0628 @KEYIN 


0585 


@KITSK 


0089 GKLTSK 


1CD0 @LOAD 


1B38 


(9L0C 


14B3 (9L0F 


14 DE (3LOGER 


0503 


GLOGOT 


0500 0MOD2 


0000 @M0D4 


FFFF 


@MSG 


0530 @MUL16 


06C9 (9MUL8 


190A 


@NMI 


0066 WEN 


198A 0OPREG 


0084 


@PARl 


2107 0PARAM 


1987 SPARSER 


2105 


0PAUSE 


0382 (aPEOF 


14A2 @POSN 


1434 


(3 PRINT 


0528 @PRT 


063D @PUT 


0645 


(3RAMDIR 


19AC (3RDHDR 


19D8 MSEC 


19F4 


0RDSSC 


18D8 @RDTRK 


19E0 0READ 


1513 


^REMOVE 


19A6 ^RENAME 


1996 @REW 


149B 


(3RMTSK 


1CD7 0RPTSK 


1CEB (3RREAD 


1473 


(9RSLCT 


19D4 0RST00 


0000 0RST08 


0008 


0RST10 


0010 (3RST18 


0018 0RST20 


0020 


(3RST28 


0028 (9RST30 


0030 @RST38 


0038 


0RSTNMI 


0FE9 0RSTOR 


19C8 (3RSTREG 


0680 


@RUN 


IBID 0RWRIT 


13AD 0SEEK 


19D0 


0SEEKSC 


1421 @SKIP 


1430 @SLCT 


19BC 


@ SMALL 


0000 @SOUND 


0392 @STEPI 


19CC 


@TIME 


078D @USA 


FFFF (9VDCTL 


0B99 


(3VDCTL3 


0D38 (3VER 


1560 @VRSEC 


19 DC 


(3WE0F 


14EC MERE 


1979 (9WRITE 


1531 


(3WRSEC 


19E8 0WRSSC 


19EC (9WRTRK 


19F0 


(a VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


ASSl 


225B ASS3 


2263 ASS3A 


226A 


ASS4 


2270 ASSIGN 


2244 AUTO? 


1FF1 


BAR$ 


0201 BOOT IT 


1F22 BOOTSTS 


439 D 


BREAK? 


1C60 BRKVECS 


1C88 BUR$ 


0200 


CASHK$ 


0A7B CFCB$ 


00E0 CFGFCB$ 


00E0 


CFLAG$ 


006C CKMOD0 


1A7F CKNOEXC 


1ED7 


CKOPEN(a 


1568 CLEANUP 


1E46 CMD 


1E41 


CMD1A 


1E97 CMD2 


1E9D CMD20 


1EBC 


CMD30 


1E3C CMD3A 


1EB2 CMD4 


1F11 


CMDCONT 


1E8E COMMENT 


1F05 CONFIG$ 


203F 


CORES 


0300 CR 


000D CRTBGN$ 


F800 
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CYL GRN 


16AE D0FBYT8 


1A26 DATES 


0033 




DAYTBLS 


04C7 DBGOFF 


1E5F DBGSVS 


00A0 




DCBKL$ 


0031 DCTS 


0470 DCTBYT8@ 


1A29 




DCTFLD@ 


1A34 DFLAGS 


006D DFTEXT 


22E7 




DIRBUF$ 


2300 DIS DO RAM 


0846 DODATAS 


0B94 




DODCBS 


0210 DO CONTROL 


0C44 DO DSPCHAR 


0CB8 




DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 DO INVERT OFF 


0C9B 




DO MASK 


0000 DO RET 


0BCB DO RET1 


0BCC 




DO SCROLL 


0CCE DO TABS 


0BEA DSKTYPS 


04C0 




DTPMT$ 


04C2 DVRENDS 


0FF4 DVRHIS 


0206 




EFLAG$ 


006E ENADIS DO RAM 


0817 ERROUT 


2220 




EXITC 


2156 EXTDBGI 


19A4 FDDINTS 


000E 




FEMSK$ 


006F FEX1 


20D7 FEX2 


20E6 




FEX3 


20E9 FEX4 


20EC FEXT 


20D1 




FLGTAB$ 


006A FND1 


2161 FND1A 


2170 




FND2 


217F FND3 


218B FND3A 


219D 




FND4 


21A5 FND5 


21B5 FND5A 


21B7 




FND6 


21C9 FND7 


21CE FND8 


21D3 




FSP1 


206E FSP2 


2079 FSP3 


2086 




FSP4 


208E FSP5 


20A1 FSP6 


20AE 




FSPEC 


205 D GET @ ROWCOL 


0DAE HERTZS 


0750 




HEX1 


22C1 HEX2 


22D3 HEX3 


22 DB 




HEXVAL 


22BA HIGHS 


040E HKRESS 


1A6C 




IF LAG $ 


0072 INBUFS 


0420 INTIMS 


003 C 




INTMSKS 


003D INTVCS 


003E JCLCBS 


0203 




JDCB$ 


0024 JFCBS 


00C0 JLDCBS 


0230 




JRET$ 


0026 KCK@ 


07D6 KFLAGS 


0074 




KIDATA$ 


08FC KIDCBS 


0208 LAST 


22F9 




L BANKS 


0202 LDRVS 


0023 LD A 


003A 




LF 


000A LFLAGS 


0075 LIBA 


8000 




LIBB 


A000 LIBC 


C000 LIBTBLS 


1F24 




LNKFCBia 


1566 LOWS 


001E LSVCS 


000 D 




MAXCOR$ 


2400 MAX DAYS 


0401 MINCORS 


3000 




MODOUT$ 


0076 MONTBLS 


04DC NFLAGS 


0077 




NOEXC 


1EDC NOTLIB 


1EF2 ONOl 


22AA 




ON02 


22AD ONOFF 


2292 OPREGS 


0078 




OPREG SV AREA 


086E OPREG SV PTR 


0835 ORARET(s> 


14 DC 




OSRLSl 


003B OSVERl 


0085 OVRLYS 


0069 




PAKNAMS 


0410 PAR2 


210C PAR3 


2129 




PAR 4 


2134 PAR5 


2137 PAR5A 


2140 




PAR 6 


2145 PARAM 


21 D8 PARAM0 


21D7 




PARAM1 


21FF PARAM2 


221 E PARAM3 


2223 




PARAM4 


222E PARAM5 


2242 PARMSW 


222B 




PAUSED 


0382 PCSAVES 


07AF PDRVS 


001 B 




PHIGH$ 


001C PRDCBS 


0218 PREPTBL 


20 B0 




PUTA0DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 




RDYMSG$ 


22EA RFLAGS 


007 B ROWCOL 2 ADDR 


0DD0 




RST380 


1BFF RSTORS 


04C4 RWRIT0 


13A2 




S1DCB$ 


0238 SBUFFS 


1D00 SET0EXEC 


1A79 




SET SCROLL 


0CF3 SFCBS 


008C SFLAGS 


007 C 




SIDCB$ 


0220 SODCBS 


0228 SPACE4S 


2142 




STACKS 


0380 STARTS 


0000 STR1 


2277 




STRING 


2274 SVCRETS 


000B SVCTABS 


0100 




SYS1 


1E00 SYS1BGN 


1E04 SYSERRS 


1B13 




TCB$ 


004E TFLAGS 


007D TIMES 


002 D 




TIMERS 


002C TIMSLS 


002 B TIMTSKS 


0713 




TMPMT$ 


04C3 TRACE INT 


07B1 TST09AZ 


214A 




TSTEXC 


1EE5 TYPHKl 


0A8F TYPTSKS 


0B26 




US TORS 


0013 VFLAGS 


007F WHAT 


1F01 




WRINTS 


0080 ZEROS 


0401 ZEROA0 


13A0 
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SYS2/SYS 

SYS2 is a multi-function overlay. It handles creating, opening, and renaming files, 
hashing filenames and passwords, checking a drive for a mounted diskette, and locating 
a specified or free DCB. It contains the code for the SVCs @INIT, @0PEN, ^RENAME, 
@GTDCB, and (s>CKDRV. 
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00100 ;SYS2/ASM - LS-DOS 6.2 






0000 


00110 
00120 ; 


TITLE 


<SYS2 - LS- 


DOS 


6.2> 




00130 ; This 


SYS modu 


e performs 


the 


following functions: 




00140 ; . OPENS an ex" 


sting File 


or [ 


)evice 




00150 ; . INITs a new 


File 








00160 ; . Checks avai 


lability of 


a specific drive 




00170 ; . Has 


hes an 11-byte fielc 


i (fi 


le name & ext) 




00180 ; . Has 


hes an 8- 


-byte field 


(pa< 


;sword) 




00190 ; . Renames a f 


i lespec/devs 


»pec 






00200 ; . Get 


s the address of a device control block 




00210 ; 










000 D 


00220 CR 


EQU 


13 








00230 *LIST 


OFF 






;Get SYS0/EQU 




00250 *LIST 


ON 








0000 


00260 *GET 


COPYCOM 


:3 




;Copyright message 




03010 ; COPYCOM - Fil 


= for Copyright 


COMment block 




03020 ; 










0000 


03030 
03040 ; 
00270 ; 


COM 


■<*(C) 1982 


! s 83 


,84 by LSI*>' 


1E00 


00280 
00290 ; 


ORG 


1E00H 






1E00 E670 


00300 SYS2 


AND 


70H 




;Strip all but entry 


1E02 C8 


00310 


RET 


Z 




;Back on zero entry 


1E03 FE10 


00320 


CP 


10H 




;Check for OPEN 


1E05 CA411F 


00330 


JP 


Z s OPEN 






1E08 FE20 


00340 


CP 


20H 




;Check for INIT 


1E0A CA0621 


00350 


JP 


Z,INIT 






1E0D FE70 


00360 


CP 


70H 




; Check for rename 


1E0F CA3922 


00370 


JP 


Z S RENAME 






1E12 FE30 


00380 


CP 


30 H 




;Get a DCB? 


1E14 2849 


00390 


JR 


Z S GTDCB 






1E16 FE40 


00400 


CP 


40H 




; Drive availability? 


1E18 2860 


00410 


JR 


Z S CKDRV 






1E1A FE60 


00420 


CP 


60 H 




;Check password hash 


1E1C 2810 


00430 
00440 ; 


JR 


Z 9 HASHPSWD 








00450 ; 


Routine 


to hash a 


file 


name 




00460 ; 












00470 HASHNAME 








1E1E 060B 


00480 


LD 


B,ll 




;Init for 11 chars 


1E20 AF 


00490 


XOR 


A 




;Clear for start 


1E21 AE 


00500 HNAMEl 


XOR 


(HL) 




;Modulo 2 addition 


1E22 23 


00510 


INC 


HL 




;Bump to next character 


1E23 07 


00520 


RLCA 






;Rotate bit structure 


1E24 10FB 


00530 


DJNZ 


HNAME1 




; & loop for field Ten 


1E26 B7 


00540 


OR 


A 




;Do not permit a zero 


1E27 2001 


00550 


JR 


NZ,HNAME2 




; hash code 


1E29 3C 


00560 


INC 


A 






1E2A 32E022 


00570 HNAME2 


LD 


(FILEHASH) 


,A 


; Stuff code for later 


1E2D C9 


00580 
00590 ; 


RET 










00600 ; 


Hash a 


password 








00610 ; 












00620 HASHPSWD 








1E2E 210700 


00630 


LD 


HL,7 






Hashing wi 11 be from 


1E31 19 


00640 


ADD 


HL,DE 






right to left so 


1E32 EB 


00650 


EX 


DE,HL 






point to lo-order 


1E33 21FFFF 


00660 


LD 


HL.-l 






;Init shift reg to l's 


1E36 0608 


00670 


LD 


B s 8 






, Init for 8-char string 
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1E38 1A 


00680 HPSWD1 


LD 


A,(DE) 


;P/u the next byte 


1E39 D5 


00690 


PUSH 


DE 


; & save the pointer 


1E3A 57 


00700 


LD 


D,A 




1E3B 5C 


00710 


LD 


E 9 H 




1E3C 7D 


00720 


LD 


A,L 


; Modulo 2 add bits 0-2 


1E3D E607 


00730 


AND 


7 


; to bits 4-6 of the 


1E3F 0F 


00740 


RRCA 




; 16-bit shift register 


1E40 0F 


00750 


RRCA 






1E41 0F 


00760 


RRCA 






1E42 AD 


00770 


XOR 


L 




1E43 6F 


00780 


LD 


L. j r\ 


;Shift shift-register 


1E44 2600 


00790 


LD 


H s 


; left by 4-bit s to 


1E46 29 


00800 


ADD 


HL 9 HL 


; isolate bits 4-7 


1E47 29 


00810 


ADD 


HL,HL 




1E48 29 


00820 


ADD 


HL S HL 




1E49 29 


00830 


ADD 


HL,HL 




1E4A AC 


00840 


XOR 


H 


;Mod 2 add SR bits 4-7 


1E4B AA 


00850 


XOR 


D 


;Mod 2 add new byte 


1E4C 57 


00860 


LD 


D,A 


;Save tempy for hi -order 


1E4D 7D 


00870 


LD 


A S L 




1E4E 29 


00880 


ADD 


HL S HL 




1E4F AC 


00890 


XOR 


H 




1E50 AB 


00900 


XOR 


E 




1E51 5F 


00910 


LD 


E S A 




1E52 EB 


00920 


EX 


DE,HL 


;SR result to HL 


1E53 Dl 


00930 


POP 


DE 


;P/u pointer to string 


1E54 IB 


00940 


DEC 


DE 


; & point to next byte 


1E55 10E1 


00950 


DJNZ 


HPSWD1 


;Loop for field length 


1E57 AF 


00960 


XOR 


A 




1E58 C9 


00970 
00980 ; 


RET 








00990 ; 


Routine 


to locate 


a Device Control Block 




01000 ; 








1E59 DD5E01 


01010 GETDCB 


LD 


E,(IX+1) 


;P/u the 2-character 


1E5C DD5602 


01020 


LD 


D,(IX+2) 


; device name 


1E5F 210802 


01030 GTDCB 


LD 


HL S KIDCB$ 


;Point to 1st DCB 


1E62 E5 


01040 DEVI 


PUSH 


HL 




1E63 7D 


01050 


LD 


A 9 L 


; Point to device 


1E64 C606 


01060 


ADD 


A,6 


; name field 


1E66 6F 


01070 


LD 


L,A 




1E67 7E 


01080 


LD 


A,(HL) 


;P/u 1st char of name 


1E68 2C 


01090 


INC 


L 


;Point to 2nd char 


1E69 BB 


01100 


CP 


E 


;Compare 1st for match 


1E6A 2006 


01110 


JR 


NZ,DEV2 


;No match? then loop 


1E6C 7E 


01120 


LD 


A,(HL) 


;lst matches, does 2nd? 


1E6D BA 


01130 


CP 


D 




1E6E 2002 


01140 


JR 


NZ,DEV2 


;Loop if no match 


1E70 El 


01150 


POP 


HL 


;Get start of DCB 


1E71 C9 


01160 


RET 






1E72 Fl 


01170 DEV2 


POP 


AF 


;Pop last DCB start 


1E73 2C 


01180 


INC 


L 


;Inc to start of next DC! 


1E74 20EC 


01190 
01200 ; 


JR 


NZ,DEV1 


;Bypass if not at end 




01210 ; 


Device 


not found i 


in tables 




01220 ; 








1E76 3E08 


01230 


LD 


A, 8 


;"device not available" 


1E78 B7 


01240 


OR 


A 




1E79 C9 


01250 
01260 ; 


RET 








01270 ; 


Check a 


drive for 


availability 




01280 ; 
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1E7A FDE5 


01290 CKDRV 


PUSH 


IY 


;We use IY in disk I/O 


1E7C CD1E1A 


01300 


CALL 


0GTDCT 


;6et driver routine addr 


1E7F FD7E00 


01310 


LD 


A s (IY+0) 


;P/u drive vector 


1E82 FEC3 


01320 


CP 


0C3H 


;Ck for enabled 


1E84 C2141F 


01330 


JP 


NZ,CKDR5 


;Bypass if disabled 


1E87 E5 


01340 


PUSH 


HL 




1E88 D5 


01350 


PUSH 


DE 




1E89 FDCB035E 01360 


BIT 


3,(IY+3) 


;Test for HARD drive 


1E8D 2018 


01370 


JR 


NZ,CKDRV1A 


;If so bypass range check 


1E8F FD7E06 


01380 


LD 


A,(IY+6) 


;Make sure the current 


1E92 FDBE05 


01390 


CP 


(IY+5) 


; cylinder is in range 


1E95 3006 


01400 


JR 


NC, CKDRV 1 


;Go if in range 


1E97 CDC819 


01410 


CALL 


(9RSTOR 


;Restore drive 


1E9A C2231F 


01420 
01430 ; 


JP 


NZ,CKDR7A 


;Go if error 


1E9D FD5605 


01440 CKDRV 1 


LD 


D,(IY+5) 


;P/u current track 


1EA0 1E00 


01450 


LD 


E,0 


;Set for sector 


1EA2 CDD019 


01460 


CALL 


0SEEK 


;Set track info to FDC 


1EA5 207 C 


01470 


JR 


NZ,CKDR7A 


;Go if error 


1EA7 CDD419 


01480 CKDRV1A CALL 


@RSLCT 


;Wait until not busy 


1EAA 2077 


01490 


JR 


NZ,CKDR7A 


;Not there - ret NZ 


1EAC FDCB035E 01500 


BIT 


3,(IY+3) 


;If hard drive, bypass 


1EB0 2055 


01510 


JR 


NZ,CKDR3A 


; GAT data update 


1EB2 FDCB0466 01520 


BIT 


4 s (IY+4) 


;If "ALIEN" by pass 


1EB6 202C 


01530 


JR 


NZ,CKDR2B 


; test of index pulses 




01540 


IF 


0MOD4 




1EB8 3A0E00 


01550 


LD 


A,(FDDINT$) 


;Check 'SMOOTH' state 


1EBB B7 


01560 


OR 


A 




1EBC 3E09 


01570 


LD 


A, 09 


;Set MSB of count down 


1EBE 2803 


01580 


JR 


Z, INTRON 


;Go if not SMOOTH 


1EC0 CB3F 


01590 


SRL 


A 


;Divide the count by two 


1EC2 F3 


01600 
01610 


DI 
ENDIF 








01620 


IF 


(9MOD2 






01630 


LD 


A, 20 






01640 


ENDIF 






1EC3 32D51E 


01650 INTRON 


LD 


(CDCNT+1),A 


;Store in 'LD H' instruct" 


1EC6 212000 


01660 
01670 ; 


LD 


HL,0020H 


;Set up count (short) 




01680 ; 


Test for diskette in 


drive & rotating 




01690 ; 








1EC9 CD171F 


01700 CKDR1 


CALL 


INDEX 


;Test index pulse 


1ECC 20FB 


01710 


JR 


NZ,CKDR1 


;Jump on index 


1ECE FDCB047E 01720 


BIT 


7,(IY+4) 


;Check CKDRV inhibit bit 


1ED2 2010 


01730 


JR 


NZ,CKDR2B 


;If on skip index test 


1ED4 2600 


01740 CDCNT 
01750 


LD 


H,00H 


;CKDRV counter (long) 
;Count set from above 


1ED6 CD171F 


01760 CKDR2 


CALL 


INDEX 


;Test index pulse 


1ED9 28FB 


01770 


JR 


Z.CKDR2 


;Jump on no index 




01780 


IF 


(3M0D4 




1EDB FB 


01790 
01800 


EI 
ENDIF 




;0K for INTs now 


1EDC 212000 


01810 


LD 


HL,0020H 


;Index off wait (short) 


1EDF CD171F 


01820 CKDR2A 


CALL 


INDEX 




1EE2 20FB 


01830 
01840 ; 


JR 


NZ,CKDR2A 


;Jump on index 




01850 ; 


Diskette is rotating 






01860 ; 








1EE4 F5 


01870 CKDR2B 


PUSH 


AF 


;Save FDC status 


1EE5 CDF718 


01880 


CALL 


(9DIRCYL 


;Get directory track in D 


1EE8 21001D 


01890 


LD 


HL,SBUFF$ 


;Point to HIT buffer 
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1EEB 5D 


01900 




LD 


E,L 


; Sector for GAT 


1EEC CDD818 


01910 




CALL 


0RDSSC 


;Read the GAT 


1EEF 2031 


01920 




JR 


NZ,CKDR7 


;Jump on error 


1EF1 2ACC1D 


01930 




LD 


HL s (SBUFF$+0CCH) ;P/u excess tracks 


1EF4 3E22 


01940 




LD 


A,22H 


;Add offset 


1EF6 85 


01950 




ADD 


A,L 




1EF7 FD7706 


01960 




LD 


(IY+6),A 


;Max track # to DCT 


1EFA FDCB04AE 


01970 




RES 


5,(IY+4) 


;Set to side 


1EFE CB6C 


01980 




BIT 


5,H 


;Test double sided 


1F00 2804 


01990 




JR 


Z,CKDR3 


;Jump if only single 


1F02 FDCB04EE 


02000 




SET 


5,(IY+4) 


;Set for side 2 


1F06 Fl 


02010 CKDR3 


POP 


AF 


;Recover FDC status 


1F07 07 


02020 CKDR3A 


RLCA 




;Shift write prot to 7 


1F08 FDB603 


02030 




OR 


(IY+3) 


;Merge Soft WP bit 


1F0B E680 


02040 




AND 


80H 


; Strip all but 7 


1F0D 326E20 


02050 




LD 


(OPNCB9+l),A 


;Save WP status for OPNCB 


1F10 87 


02060 
02070 




ADD 


A,A 


; Write prot to carry fig 


1F11 


02080 CKDR4 


EQU 


$ 




1F11 FB 


02090 




EI 






1F12 Dl 


02100 




POP 


DE 




1F13 El 


02110 




POP 


HL 




1F14 FDE1 


02120 CKDR5 


POP 


IY 




1F16 C9 


02130 




RET 






1F17 7C 


02140 ] 


[NDEX 


LD 


A,H 




1F18 B5 


02150 




OR 


L 




1F19 2807 


02160 




JR 


Z,CKDR7 




1F1B 2B 


02170 




DEC 


HL 




1F1C CDD419 


02180 




CALL 


(PRSLCT 


;Check for index pulse 


1F1F CB4F 


02190 




BIT 


1,A 


;Test index 


1F21 C9 


02200 




RET 






1F22 Fl 


02210 CKDR7 


POP 


AF 






02220 


> 








1F23 B7 


02230 CKDR7A 


OR 


A 


;Set NZ ret 


1F24 18EB 


02240 
02250 




JR 


CKDR4 


; and exit 




02260 




OPEN a 


device 






02270 




Device 


Control Blocks 


are from X'0208' - X'02FF' 




02280 










1F26 CD591E 


02290 [ 


JEVOPEN 


CALL 


GETDCB 


;Find the DCB named 


1F29 C0 


02300 
02310 


* 


RET 


NZ 


; in the IX pointer 




02320 


> 


Found 


the needed Device Control Block 




02330 


» 








1F2A 44 


02340 [ 


DEV4 


LD 


B,H 


;Xfer deb vector to BC 


1F2B 4D 


02350 




LD 


C,L 




1F2C DDE5 


02360 




PUSH 


IX 


;User DCB to HL 


1F2E El 


02370 




POP 


HL 




1F2F 3610 


02380 




LD 


(HL),10H 


;Show routed 


1F31 23 


02390 




INC 


HL 




1F32 71 


02400 




LD 


(HL),C 


;Stuff deb vector 


1F33 23 


02410 




INC 


HL 




1F34 70 


02420 




LD 


(HL),B 




1F35 23 


02430 




INC 


HL 




1F36 AF 


02440 




XOR 


A 


;Zero next 3 bytes 


1F37 11 


02450 




LD 


(HL),A 




1F38 23 


02460 




INC 


HL 




1F39 77 


02470 




LD 


(HL),A 




1F3A 23 


02480 




INC 


HL 




1F3B 77 


02490 




LD 


(HL),A 




1F3C 23 


02500 




INC 


HL 
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1F3D 73 


02510 


LD 


(HL),E 


;Stuff deb name 


1F3E 23 


02520 


INC 


HL 




1F3F 72 


02530 


LD 


(HL),D 




1F40 C9 


02540 
02550 ; 
02560 ; 


RET 








02570 ; 


OPEN a 


file 






02580 ; 


HL <= 


the address of a 


256-byte buffer 




02590 ; 


DE <= 


the address of a 


32-byte FCB 




02600 ; 


B <= 


the logical record length (LREC) 




02610 ; 








1F41 CD6615 


02620 OPEN 


CALL 


LNKFCB<a 


;Set up link to deb 


1F44 3A7C00 


02630 OPEN1 


LD 


A,{SFLAG$) 


; Stuff current sysflag 


1F47 322420 


02640 


LD 


(0PEN14+1),A 


; to check later then 


1F4A E6F8 


02650 


AND 


0F8H 


; remove bits 0, 1 & 2 


1F4C 327C00 


02660 


LD 


(SFLAG$),A 




1F4F DD7E00 


02670 


LD 


A,(IX+0) 




1F52 FE2A 


02680 


CP 


i*i 


;If name starts with ■*', 


1F54 28D0 


02690 


JR 


Z,DEVOPEN 


; it is a device spec 


1F56 78 


02700 


LD 


A,B 


;P/u Lrl requested 


1F57 32FE22 


02710 


LD 


(LREC$),A 




1F5A 22B320 


02720 


LD 


(0PNCB4+D.HL 


;Stuff disk I/O buffer 


1F5D DDE5 


02730 


PUSH 


IX 


;Transfer the filespec 


1F5F El 


02740 


POP 


HL 


; into the system 


1F60 CD8721 


02750 


CALL 


XFRSPEC 


; buffer area 


1F63 C0 


02760 


RET 


NZ 


;Return if bad name 


1F64 21E922 


02770 


LD 


HL,NAME$EXT 


; Point to name/ext field 


1F67 CD1E1E 


02780 


CALL 


HASHNAME 


; & hash it (11 chars) 


1F6A 11E122 


02790 


LD 


DE,PSWDBUF 


;Point to the password 


1F6D CD2E1E 


02800 


CALL 


HASHPSWD 


; & hash it 


1F70 22F422 


02810 


LD 


(PW$HASH1),HL 


; Stuff owner pswd 


1F73 22F622 


02820 


LD 


(PW$HASH2),HL 


; Stuff user pswd 


1F76 3E00 


02830 OPEN2 


LD 


A,0 


;P/u drive <FF-07> 


1F78 4F 


02840 


LD 


C,A 




1F79 3C 


02850 


INC 


A 


;Jump if :d entered 


1F7A 2001 


02860 


JR 


NZ,OPEN3 




1F7C 4F 


02870 


LD 


C,A 




1F7D CD7A1E 


02880 OPEN3 


CALL 


CKDRV 


;Drive available? 


1F80 2013 


02890 


JR 


NZ,OPEN6 


;Jump if not 


1F82 CD9718 


02900 


CALL 


@HITRD 


;6et hash index table 


1F85 C0 


02910 


RET 


NZ 


;Return if read error 




02920 3 












02930 , 




Compare hashed filename 


/ext with each entry 




02940 , 




in the 


HIT to see if fi 


le is on this drive 




02950 










1F86 7E 


02960 OPEN4 


LD 


A,(HL) 


;Bypass HIT entry if 


1F87 B7 


02970 


OR 


A 


; unused 


1F88 2808 


02980 


JR 


Z.0PEN5 




1F8A E5 


02990 


PUSH 


HL 


;Not vacant 


1F8B 21E022 


03000 


LD 


HL,FILEHASH 


; Point to DEC 


1F8E BE 


03010 


CP 


(HL) 


;Compare with HIT entry 


1F8F El 


03020 


POP 


HL 




1F90 2821 


03030 


JR 


Z,0PEN9 


;Jump if a match else 


1F92 2C 


03040 OPEN5 


INC 


L 


; bump to next entry 


1F93 20F1 


03050 


JR 


NZ,0PEN4 


;Loop until 256 bytes 




03060 












03070 




File not on this drive 






03080 










1F95 CD9E1F 


03090 OPEN6 


CALL 


TESTDRV 


;Bump drive if we can 


1F98 38E3 


03100 


JR 


C0PEN3 


;Loop if another to test 


1F9A 3E18 


03110 ( 


3PEN7 


LD 


A, 24 


;File not found error 
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1F9C B7 


03120 


OR 


A 






1F9D C9 


03130 


RET 








1F9E 3A771F 


03140 TESTDRV 


LD 


A,(0PEN2+1) 


;If drive still X'FF', 


1FA1 3C 


03150 


INC 


A 




; then advance to next 


1FA2 B7 


03160 


OR 


A 




;Reset Carry for ret w/o 


1FA3 C0 


03170 


RET 


NZ 




; affecting Z/NZ result 


1FA4 0C 


03180 


INC 


C 




;Bump drive counter 


1FA5 79 


03190 


LD 


A,C 






1FA6 FE08 


03200 


CP 


8 




;Loop end, 8 max 


1FA8 C9 


03210 
03220 ; 


RET 










03230 ; 


Althc 


)ugh the HIT 


entry matched, the filename/ext 




03240 ; 


did not (due to 


a col 


ision). Continue to scan 




03250 ; 


the rest of the 


lash ■ 


ndex table. 




03260 ; 










1FA9 CI 


03270 0PEN8 


POP 


BC 




;Remove ret address and 


1FAA El 


03280 


POP 


HL 




; excess registers 


1FAB CI 


03290 


POP 


BC 






1FAC CD9718 


03300 


CALL 


0HITRD 




;Re-read the hit 


1FAF El 


03310 


POP 


HL 






1FB0 C0 


03320 


RET 


NZ 




;Go on i/o error 


1FB1 18DF 


03330 
03340 ; 


JR 


0PEN5 








03350 ; 


The hashed name r 


natches, read the directory 




03360 ; 










1FB3 E5 


03370 0PEN9 


PUSH 


HL 






1FB4 C5 


03380 


PUSH 


BC 






1FB5 45 


03390 


LD 


B,L 




;Set up the DEC 


1FB6 CDBB18 


03400 


CALL 


0DIRRD 






1FB9 2803 


03410 


JR 


Z.OPEN10 




;Jump if no error 


1FBB CI 


03420 


POP 


BC 




; else pop returns 


1FBC El 


03430 


POP 


HL 






1FBD C9 


03440 
03450 ; 


RET 






; & exit 




03460 ; 


Verify that direc 


:tory entry is this file 




03470 ; 










1FBE E5 


03480 OPEN10 


PUSH 


HL 






1FBF C5 


03490 
03500 ; 


PUSH 


BC 




;Save drive (reg C) 




03510 ; 


If bi 


t 7 is set, 


it denotes an extended 




03520 ; 


direc 


tory entry which 


does not include 




03530 ; 


the f 


ilename. Go 


to next HIT entry if set 




03540 ; 










1FC0 CB7E 


03550 


BIT 


7,(HL) 




;Test for FXDE 


1FC2 20E5 


03560 


JR 


NZ.0PEN8 






;Jump if extended 


1FC4 CB66 


03570 


BIT 


4,(HL) 






;If DIR record spare, 


1FC6 28E1 


03580 


JR 


Z,0PEN8 






; continue to search 


1FC8 3E05 


03590 


LD 


A, 5 






;Point to filename/ext 


1FCA 85 


03600 


ADD 


A,L 






field in directory 


1FCB 6F 


03610 


LD 


L,A 






1FCC 11E922 


03620 


LD 


DE,NAME$EXT 




.Point to entered name 


1FCF 060B 


03630 


LD 


B,ll 






, Ini t to check 11 chars 


1FD1 1A 


03640 OPEN11 


LD 


A,(DE) 






Verify a match 


1FD2 BE 


03650 


CP 


(HL) 






or no match 


1FD3 20D4 


03660 


JR 


NZ,0PEN8 






Go to next HIT entry 


1FD5 23 


03670 


INC 


HL 






if no match; else bump 


1FD6 13 


03680 


INC 


DE 






pointers & loop 


1FD7 10F8 


03690 


DJNZ 


OPEN11 






1FD9 CI 


03700 


POP 


BC 




;Matches! get drive # 


1FDA 79 


03710 


LD 


A,C 




; & stuff it 


1FDB 32771F 


03720 


LD 


(OPEN2+1) 


,A 
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1FDE El 


03730 


POP 


HL 




1FDF Fl 


03740 


POP 


AF 




1FE0 Fl 


03750 


POP 


AF 




1FE1 C5 


03760 


PUSH 


BC 


;Save DEC and drive 


1FE2 E5 


03770 


PUSH 


HL 


;Save ptr to dir record 


1FE3 7E 


03780 


LD 


A 9 (HL) 


;P/u 1st byte of dir rec 


1FE4 32FA22 


03790 . 


LD 


(DIR$INIT),A 


; Stuff it 


1FE7 E607 


03800 


AND 


7 


;Strip all but protection 


1FE9 4F 


03810 


LD 


C,A 




1FEA 0600 


03820 


LD 


B,0 




1FEC 3E10 


03830 


LD 


A, 16 


;Point to update password 


1FEE 85 


03840 


ADD 


A,L 




1FEF 6F 


03850 


LD 


L,A 




1FF0 ED5BF622 


03860 


LD 


DE,(PW$HASH2) 


;P/u password hash 


1FF4 7E 


03870 


LD 


A,(HL) 


;P/u owner pswd lo order 


1FF5 23 


03880 


INC 


HL 




1FF6 E5 


03890 


PUSH 


HL 




IFF 7 66 


03900 


LD 


H S (HL) 


;P/u owner pswd hi order 


1FF8 6F 


03910 


LD 


L,A 




1FF9 3A7700 


03920 


LD 


A, (NFLAG$) 


;P/u NFLAG$ 


1FFC CB7F 


03930 


BIT 


7, A 


;Check network active bit 


1FFE 2802 


03940 


JR 


Z 9 USEPWD 




2000 54 


03950 


LD 


D,H 




2001 5D 


03960 


LD 


E,L 




2002 AF 


03970 USEPWD 


XOR 


A 


;Compare password entry 


2003 ED52 


03980 


SBC 


HL S DE 


; with owner password 


2005 El 


03990 


POP 


HL 




2006 282D 


04000 WASMAT 


JR 


Z,0PEN16 


;Grant access if match 


2008 79 


04010 


LD 


A,C 


;Recover protection 


2009 FE07 


04020 


CP 


7 


;Abort if "no access" 


200B 280B 


04030 


JR 


Z S 0PEN12 




200D 23 


04040 


INC 


HL 


; else point to user 


200E 41 


04050 


LD 


B,C 


; password & xfer prot 


200F 7E 


04060 


LD 


A,(HL) 


;P/u user pswd lo order 


2010 23 


04070 


INC 


HL 




2011 66 


04080 


LD 


H,(HL) 


;P/u user pswd hi order 


2012 6F 


04090 


LD 


L,A 




2013 AF 


04100 


XOR 


A 


;Check for a match 


2014 ED52 


04110 .- 


SBC 


HL,DE 




2016 2806 


04120 
04130 ; 


JR 


Z,OPENl3 


;Jump if match 




04140 ; 


File 


is password protected - abort 




04150 ; 








2018 El 


04160 OPEN12 


POP 


HL 




2019 CI 


04170 


POP 


BC 




201A 3E19 


04180 


LD 


A,25 


;"fi le access denied" 


201C B7 


04190 


OR 


A 




201D C9 


04200 
04210 ; 


RET 








04220 ; 


Check 


if prot is exec 


only 




04230 ; 








201 E 79 


04240 OPEN13 


LD 


A,C 




201F FE06 


04250 


CP 


6 


;Check for EXEC ONLY 


2021 2012 


04260 


JR 


NZ,0PEN16 


;Jump if not 


2023 0600 


04270 0PEN14 


LD 


B,0 


;P/u SFLAG$ entry state 


2025 CB50 


04280 


BIT 


2,B 


;Did RUN request open? 


2027 2807 


04290 


JR 


Z,0PEN15 


;Bypass if NOT from RUN 


2029 217C00 


04300 


LD 


HL,SFLAG$ 




202C CBCE 


04310 


SET 


1,(HL) 


;Show RUN & EXEC file 


202E 3E05 


04320 


LD 


A,5 


;Set read access for now 


2030 21791A 


04330 OPEN15 


LD 


HL,SET(3EXEC 


;Set RST vector to turn 
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2033 36C9 
2035 32A320 

2038 El 

2039 CI 



203A FDE5 
203C E5 
203D FDE1 
203F C5 
2040 CD9320 

2043 CI 

2044 212420 
2047 CB46 
2049 2804 
204B AF 
204C FDE1 
204 E C9 

204F FDCB016E 
2053 280F 
2055 FDE1 
2057 DD7E01 
205A E6F8 
205 C F605 
205E DD7701 
2061 3E29 
2063 C9 



2064 DD7E01 
2067 E607 

2069 FE05 
206B 3017 
206D 3E00 
206F 07 

2070 381C 
2072 FDCB01EE 
2076 3A7700 

2079 CB47 
207B C40318 
207E 20CC 

2080 DDCB00F6 



2084 DD7E09 
2087 FDBE04 
208A 3E2A 
208C 18BE 



208E CD5720 
2091 18F1 



OPNEX 
0PNEX1 



04340 

04350 OPEN16 

04360 

04370 

04380 ; 

04390 ; 

04400 ; 

04410 ; 

04420 ; 

04430 ; 

04440 OPNCB 

04450 

04460 

04470 

04480 

04490 

04500 

04510 

04520 

04530 

04540 

04550 

04560 

04570 

04580 

04590 OPNEX2 

04600 

04610 

04620 

04630 

04640 

04650 ; 

04660 ; 

04670 ; 

04680 ; 

04690 0PNCB8 

04700 

04710 

04720 

04730 0PNCB9 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 

04850 OPNCB10 

04860 

04870 



LD 
LD 
POP 
POP 



(HL),0C9H 

(OPNCBl+l),A 

HL 

BC 



off DEBUG 
Stuff access level 
Ptr to direc record 
P/u DEC and drive 



Routine to open up the fcb from the directory 
HL => directory record in SBUFF$ 
BC => DEC and drive used for directory read/write 
IX => pointer to File Control Block 



PUSH 

PUSH 

POP 

PUSH 

CALL 

POP 

LD 

BIT 

JR 

XOR 

POP 

RET 

BIT 

JR 

POP 

LD 

AND 

OR 

LD 

LD 

RET 



IY 

HL 

IY 

BC 

OPNCB0 

BC 

HL S 0PEN14+1 

0,(HL) 

Z,0PNEX1 

A 

IY 

5,(IY+1) 

Z,0PNCB8 

IY 

A.UX+1) 

0F8H 

5 

(IX+D.A 

A, 41 



;Save IY 

;Transfer direc record 

; ptr to IY 

;Save DEC and drive 

;Create the opened FCB 

;If from LOAD, don't do 
; any further checks 



If fi le already open 
then set read-only 
& return "f i le open.. 
P/u current attributes 
Mask off current prot 
& replace with READ 
Reset access to READ 
Set "file already open" 



If access level is > read, set file open flag in 

the directory & note close authority in the FCB. 

LD A,(IX+1) ;P/u FCB access level 

AND 7 ;Mask off other junk 

CP 5 ;Ck READ, EXEC, NONE 

JR NC,OPNCB10 ;Go if one of the above 

LD A,0 ;P/u CKDRV status 

RLCA ;Was drive write prot? 

JR C,FRCREAD ;CF = WP 

SET 5,(IY+1) ;Set file open in direc 

LD A,(NFLAG$) ;P/u Nflag 

BIT 0,A ;Check for function ON 

CALL NZ,@DIRWR ;Write the directory 

JR NZ, OPNEX 

SET 6,(IX+0) ;Set close authority 

Ck if passed LRL matches directory 



LD 
CP 
LD 
JR 



A,(IX+9) 
(IY+4) 
A, 42 
OPNEX 



P/u LRL from FCB & 

compare with directory 
I nit "LRL open fault 



04890 ; 
04900 ; 
04910 ; 
04920 FRCREAD 
04930 
04940 ; 



Disk write protected - Change access to READ 

;Change access to READ 



CALL 
JR 



0PNEX2 
OPNCB10 
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2096 El 

2097 1A 

2098 E620 
209A F680 
209C 77 
209D 23 
209E 3AFE22 
20A1 B7 
20A2 3E00 
20A4 2802 
20A6 F680 
20A8 F620 
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20AA 
20AC 
20AD 
20AE 
20AF 



20 Bl 

20 B2 

20 B5 

20 B6 

20B7 

20 B8 

20B9 

20 BA 

20BB 

20 BC 

20BD 

20 BE 

20 BF 

20C0 

20C1 

20C2 

20C3 

20C4 

20C5 

20C6 

20C7 

20CA 

20CB 

20CC 

20CD 

20CE 

20CF 

20 D0 

20D1 

20D3 

20 D6 

20D7 

20D9 



F600 

77 

23 

AF 

77 

23 

D5 

110000 

73 

23 

72 

23 

Dl 

77 

23 

71 

23 

70 

23 

13 

13 

13 

1A 

77 

23 

13 

3AFE22 

77 

23 

AF 

77 

23 

77 

23 

CBE3 

010200 

EB 

EDB0 

EB 



04950 ; 

04960 ; 

04970 OPNCB0 

04980 

04990 

05000 

05010 

05020 

05030 

05040 

05050 

05060 

05070 OPNCB1 

05080 

05090 

05100 OPNCB2 

05110 ; 

05120 ; 

05130 ; 

05140 ; 

05150 ; 

05160 ; 

05170 0PNCB3 

05180 

05190 

05200 

05210 

05220 

05230 

05240 0PNCB4 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 



This routine creates the open file control block 



EX 

PUSH 

POP 

LD 

AND 

OR 

LD 

INC 

LD 

OR 

LD 

JR 

OR 

OR 



DE 5 HL 

IX 

HL 

A,(DE) 

20H 

80H 

(HL),A 

HL 

A,(LREC$) 

A 

A,0 

Z 5 0PNCB2 

80 H 

20H 



;Transfer fcb pointer 

Get DIR+0 

Keep "PDS" bit & show 

FCB as open 
; Shove into FCB+0 

P/u lrl 

Test for (256) 
Now start byte 2 with 
that set by "0PEN16" 
Show sector or byte I/O 
Show buffer is empty 



Set bit 3 if filespec ended in an 
exclamation point. This causes the 
directory to be updated on e^ery 
file write where the EOF is extended 



OR 

LD 

INC 

XOR 

LD 

INC 

PUSH 

LD 

LD 

INC 

LD 

INC 

POP 

LD 

INC 

LD 

INC 

LD 

INC 

INC 

INC 

INC 

LD 

LD 

INC 

INC 

LD 

LD 

INC 

XOR 

LD 

INC 

LD 

INC 

SET 

LD 

EX 

LDIR 

EX 



(HL),A 

HL 

A 

(HL),A 

HL 

DE 

DE 9 

(HL ) 5 E 

HL 

(HL) S D 

HL 

DE 

(HL) 9 A 

HL 

(HL),C 

HL 

(HL),B 

HL 

DE 

DE 

DE 

A,(DE) 

(HL) S A 

HL 

DE 

A,(LREC$) 

(HL),A 

HL 

A 

(HL),A 

HL 

(HL),A 

HL 

4,E 

BC,2 

DE,HL 

DE,HL 



;Init FCB+1 



; Init FCB+2 with 

;Put address of disk I/O 
; buf into FCB+3 & FCB+4 



;FCB+5 with for 
; lo order next 

;FCB+6 with drive 

;FCB+7 with DEC 

;Point to DIR EOF byte 



;P/u DIR lo order EOF 
; & stuff into FCB+8 



;P/u lrl & stuff 
; into FCB+9 



;Init FCB+10 & FCB+11 
: with zero for NRN 



; Point to file EOF 
;Move ERN 

; and zero BC reg 
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20 DA 3E05 
20DC F5 
20 DD 1A 
20DE 77 
20DF 23 
20E0 13 
20E1 1A 
20E2 77 
20E3 23 
20E4 E61F 
20E6 3C 



20E7 81 
20E8 4F 
20E9 3001 
20EB 04 
20EC Fl 
20ED 3D 
20EE C8 
20EF F5 
20F0 13 
20F1 1A 
20F2 FEFE 
20F4 3006 
20F6 71 
20F7 23 
20F8 70 
20F9 23 
20FA 18E1 



20FC Fl 
20FD 07 
20FE 07 
20FF 47 
2100 36FF 

2102 23 

2103 10FB 
2105 C9 



2106 CD6615 

2109 32A320 
210C E5 
210D 217C00 

2110 CB96 

2112 El 

2113 CD441F 

2116 C8 

2117 FE18 
2119 C0 
211A 3E10 
211C 32FA22 
211F 3A771F 



05560 

05570 

05580 OPNCB5 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 ; 

05680 ; 

05690 ; 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 

05870 ; 

05880 ; 

05890 ; 

05900 0PNCB6 

05910 

05920 

05930 

05940 0PNCB7 

05950 

05960 

05970 

05980 

05990 

06000 

06010 

06020 

06030 

06040 

06050 

06060 

06070 



INIT 



06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 



LD 

PUSH 

LD 

LD 

INC 

INC 

LD 

LD 

INC 

AND 

INC 



A,5 

AF 

A,(DE) 

(HL),A 

HL 

DE 

A S (DE) 

(HL) S A 

HL 

1FH 

A 



;Max 5 extents 
;Move starting track 

;Move grans & offset 



;Strip out grans 
;Bump for zero offset 



Add reg A to reg pair BC 



ADD 

LD 

JR 

INC 

POP 

DEC 

RET 

PUSH 

INC 

LD 

CP 

JR 

LD 

INC 

LD 

INC 

JR 



A 9 C 

C,A 

NC s $+3 

B 

AF 

A 

Z 

AF 

DE 

A 5 (DE) 

0FEH 

NC.0PNCB6 

(HL) S C 

HL 

(HL) 9 B 

HL 

OPNCB5 



;Add previous count 

;Update C 

;Go if no carry to B 

;Recover counter 
;Decrement loop 
;Done if moved in 5 



;Test for end of extents 

;Extent in use? 

;Jump if not 

;Stuff # of cumulative 

; grans to this 

: allocation into FCB 



;Loop for next 
Unused extents - put X'FFFF' in remaining fields 



POP 

RLCA 

RLCA 

LD 

LD 

INC 

DJNZ 

RET 



AF 



B 8 A 

(HL) s 0FFH 
HL 
0PNCB7 



;Recover counter 
;Make times 4 and 
; fill remaining 
; extent bytes with 
; 0FFH 



INIT a file 

HL => the address of a 256-byte buffer 

DE => the address of a 32-byte FCB 

B => the logical record length (LREC) 



;Link to FCB 

; Start FCB+1 with 



CALL 


LNKFCBG 


LD 


(0PNCB1+1) S A 


PUSH 


HL 


LD 


HL,SFLAG$ 


RES 


2 S (HL) 


POP 


HL 


CALL 


0PEN1 


RET 


Z 


CP 


24 


RET 


NZ 


LD 


A,10H 


LD 


(DIR$INIT),A 


LD 


A,(0PEN2+1) 



;Reset called by RUN bit 



;Can we "OPEN" the file? 
;Return if file existing 
;Return if error not 
; "fi le not found" 
;Set dir rec to show 
; assigned 
;P/u the drive entry 



Page 163 



The Source 


SYSTEM Fil 


es 


SYS2 - LS-DOS 6 


.2 Page 00011 


2122 4F 


06170 




LD 


C S A 




2123 3C 


06180 




INC 


A 


;Jump if a drive entry 


2124 F5 


06190 




PUSH 


AF 




2125 2001 


06200 




JR 


NZ,INIT1 


; was made 


2127 4F 


06210 




LD 


C,A 




2128 Fl 


06220 


INIT1 


POP 


AF 


;Stack integrity 


2129 CD7A1E 


06230 




CALL 


CKDRV 


;Is this drive available? 


212C 200C 


06240 




JR 


NZ,INIT2 


;Jump if not 


212E 380A 


06250 




JR 


C.INIT2 


; or if write protected 


2130 CD9718 


06260 




CALL 


0HITRD 


;Read hash index table 


2133 C0 


06270 




RET 


NZ 


;Return if read error 


2134 CDEE21 


06280 




CALL 


SPRHIT 


;Locate spare entry 


2137 281F 


06290 




JR 


Z.INIT4 


;Jump if space 


2139 AF 


06300 




XOR 


A 


;Set status of CKDRV=Z 


213A F5 


06310 


INIT2 


PUSH 


AF 


;Save last CKDRV status 


213B CD9E1F 


06320 




CALL 


TESTDRV 




213E 38E8 


06330 




JR 


C.INIT1 


;Loop if not at end 


2140 3A771F 


06340 




LD 


A s (OPEN2+l) 


;If drivespec not entered 


2143 3C 


06350 




INC 


A 


; then "directory full 


2144 2003 


06360 




JR 


NZ,INIT2A 




2146 Fl 


06370 




POP 


AF 


;Stack integrity 


2147 1805 


06380 




JR 


ERR26 




2149 Fl 


06390 


INIT2A 


POP 


AF 


; else if no drive then 


214A 2008 


06400 




JR 


NZ.ERR32 


; "illegal drive... 


214C 3803 


06410 




JR 


C S ERR15 


; else if write protect 


214E 3E1A 


06420 


ERR26 


LD 


A, 26 


; "directory space full" 


2150 01 


06430 




DB 


1 




2151 3E0F 


06440 


ERR15 


LD 


A s 15 


; "write protect.. . 


2153 01 


06450 




DB 


1 




2154 3E20 


06460 


ERR32 


LD 


A, 32 


;"Illegal drive... 


2156 B7 


06470 




OR 


A 




2157 C9 


06480 
06490 


» 


RET 








06500 


» 


Found 


a spare HIT entry 


position 




06510 


» 








2158 45 


06520 


INIT4 


LD 


B,L 


;Save DEC 


2159 3AE022 


06530 




LD 


A.(FILEHASH) 


;P/u fi lespec hash 


215C 77 


06540 




LD 


(HL),A 


; & store in HIT 


215D CD9818 


06550 




CALL 


0HITWR 


;Write updated HIT 


2160 CCBB18 


06560 




CALL 


Z,G>DIRRD 


;Read that dir record 


2163 C0 


06570 




RET 


NZ 


;Return if read error 


2164 E5 


06580 




PUSH 


HL 




2165 C5 


06590 




PUSH 


BC 




2166 EB 


06600 




EX 


DE,HL 




2167 010500 


06610 




LD 


BC,5 


;Move 1st 5 bytes into 


216A 21FA22 


06620 




LD 


HL,DIR$INIT 


; directory record 


216D EDB0 


06630 




LDIR 






216F 0E11 


06640 




LD 


C s 17 


;Move filename & password 


2171 21E922 


06650 




LD 


HL,NAME$EXT 


; info into directory 


2174 EDB0 


06660 




LDIR 






2176 EB 


06670 




EX 


DE,HL 




2177 060A 


06680 




LD 


B,10 


;Put X'FFFF' into 5 ext's 


2179 CD0021 


06690 


INIT5 


CALL 


OPNCB7 


;4 for the ext's & 1 for 


217C CI 


06700 




POP 


BC 


; starting info 


217D CD0318 


06710 




CALL 


(3DIRWR 


;Write updated directory 


2180 El 


06720 




POP 


HL 




2181 C0 


06730 




RET 


NZ 


;Return if write error 


2182 CD3A20 


06740 




CALL 


OPNCB 


; else open the fcb 


2185 37 


06750 




SCF 




; Indicate new fi le 


2186 C9 


06760 
06770 


j 


RET 
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06780 ; 


Xfer 


the file spec to system buffer area 




06790 ; 








2187 0613 


06800 XFRSPEC LD 


B,19 




2189 11E122 


06810 


LD 


DE,PSWDBUF 




218C 3E20 


06820 


LD 


A,20H 


; Blank out the fi lename 


218E 12 


06830 XSPEC1 


LD 


(DE),A 


; field in system buffer 


218F 13 


06840 


INC 


DE 




2190 10FC 


06850 


DJNZ 


XSPEC1 




2192 3EFF 


06860 


LD 


A,0FFH 


;Set drive to X'FF' for 


2194 32771F 


06870 


LD 


(0PEN2+1),A 


; checking user entry 


2197 1EE9 


06880 


LD 


E,NAME$EXT&0FFH 


;Xfer file name 


2199 CDD221 


06890 


CALL 


XSPEC8 




219C 4F 


06900 


LD 


C,A 




219D 78 


06910 


LD 


A,B 




219E D608 


06920 


SUB 


8 


;Any valid chars found? 


21A0 2003 


06930 
06940 ; 


JR 


NZ,XSPEC3 


;Jump if valid name 




06950 ; 


Filename was invalid format 




06960 ; 








21A2 F613 


06970 


OR 


19 


;" illegal file name" 


21A4 C9 


06980 
06990 ; 


RET 








07000 ; 


Continue to check file s 


pec 




07010 ; 








21A5 79 


07020 XSPEC3 


LD 


A,C 




21A6 FE2F 


07030 


CP 


7' 


;Ext entered? 


21 A8 1EF1 


07040 


LD 


E,FILE$EXT&0FFH 




21AA 0603 


07050 


LD 


B 9 3 




21AC CCD421 


07060 


CALL 


Z,XSPEC8A 


;Xfer the ext 


21AF FE2E 


07070 


CP 


i i 


; Password entered? 


21B1 1EE1 


07080 


LD 


E,PSWDBUF&0FFH 




21B3 CCD221 


07090 


CALL 


Z,XSPEC8 


;Xfer the password 


21B6 FE3A 


07100 


CP 


i . i 


;Drive entered? 


21B8 200D 


07110 


JR 


NZ,XSPEC6 




21BA 7E 


07120 


LD 


A,(HL) 


;P/u drive # 


21BB D630 


07130 


SUB 


'0' 


;Convert to binary 


21BD 32771F 


07140 


LD 


(OPEN2+l),A 


Stuff drive # 


21C0 E6F8 


07150 


AND 


0F8H 


Must be <0-7> 


21C2 3E20 


07160 


LD 


A, 32 


"illegal drive #" 


21C4 C0 


07170 


RET 


NZ 


Return error if out 


21C5 23 


07180 


INC 


HL 


of range 


21C6 7E 


07190 


LD 


A,(HL) 


Does fi lespec end in 


21C7 D621 


07200 XSPEC6 


SUB 


21H ; 


exclamation point? 


21C9 3E08 


07210 


LD 


A, 8 ; 


I nit to set bit 3 of 


21CB 2801 


07220 


JR 


Z,XSPEC7 ; 


FCB+1 & jump if "!" 


21 CD AF 


07230 


XOR 


A ; 


else reset if not 


21CE 32AB20 


07240 XSPEC7 


LD 


(OPNCB3+l),A 




21D1 C9 


07250 
07260 ; 
07270 ; 
07280 ; 


RET 






21D2 0608 


07290 XSPEC8 


LD 


B,8 




21D4 7E 


07300 XSPEC8A 


LD 


A,(HL) ; 


P/u a fi lespec character 


21D5 23 


07310 


INC 


HL ; 


& 1st test for A-Z 


21D6 1809 


07320 


JR 


XSPEC10 




21D8 7E 


07330 XSPEC9 


LD 


A,(HL) ; 


P/u a fi lespec character 


21D9 23 


07340 


INC 


HL ; 


Advance to next one 


21 DA FE30 


07350 


CP 


«0. ; 


Check for 0-9 


21DC D8 


07360 


RET 


C 




21DD FE3A 


07370 


CP 


■9'+l 




21 DF 3806 


07380 


JR 


C.XSPEC11 
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21E1 FE41 


07390 XSPEC10 CP 


■A' ; 


Check for A-Z 


21E3 D8 


07400 


RET 


C 




21E4 FE5B 


07410 


CP 


'Z'+l 




21E6 D0 


07420 


RET 


NC 




21E7 12 


07430 XSPEC11 


LD 


(DE),A ; 


Character is valid 


21E8 13 


07440 


INC 


DE ; 


Advance to next one 


21E9 10ED 


07450 


DJNZ 


XSPEC9 ; 


& loop 


21EB 7E 


07460 


LD 


A,(HL) ; 


P/u following character 


21 EC 23 


07470 


INC 


HL 




21ED C9 


07480 
07490 ; 


RET 








07500 ; 


Routine 


to find a spare HIT entry 




07510 ; 


Calculate the number of c 


irectory sectors 




07520 ; 


= (#sectors x #heads) - 2 


for GAT & HIT 




07530 ; 










07540 SPRHIT 








21EE 3E07 


07550 


LD 


A,7 ; 


Get highest # sector 


21F0 CD2B1A 


07560 


CALL 


(3DCTBYT 




21F3 D5 


07570 


PUSH 


DE 




21F4 57 


07580 


LD 


D 9 A ; 


Store heads & sectors 


21F5 E61F 


07590 


AND 


1FH ; 


Rake off # sectors 


21F7 5F 


07600 


LD 


E,A 


& stuff into E 


21F8 1C 


07610 


INC 


E 


;Bump for offset 


21F9 AA 


07620 


XOR 


D 


;Recover # heads 


21FA 07 


07630 


RLCA 




, into bits 0-2 


21FB 07 


07640 


RLCA 






21 FC 07 


07650 


RLCA 






21FD 3C 


07660 


INC 


A 


;Bump for offset 


21FE CD0A19 


07670 


CALL 


0MUL8 


;Multiply sectors x heads 


2201 5F 


07680 


LD 


E,A 


;Now check double bit 


2202 3E04 


07690 


LD 


A,4 




2204 CD2B1A 


07700 


CALL 


0DCTBYT 




2207 CB6F 


07710 


BIT 


5,A 


;Set if 2-sided 


2209 7B 


07720 


LD 


A,E 




220A 2801 


07730 


JR 


Z, ONESID 


;Go if not set else 


220C 87 


07740 


ADD 


A,A 


; double value 


220D Dl 


07750 ONESID 


POP 


DE 




220E D602 


07760 


SUB 


2 


;Reduce for GAT & HIT 


2210 322422 


07770 
07780 ; 


LD 


(GSH3+1) S A 


; Stuff for compare 




07790 ; 


Search 


across rows 






07800 ; 








2213 2E27 


07810 


LD 


L,27H 


;Try first to use a HIT 


2215 CD1B22 


07820 


CALL 


GSHLOOP 


; past the SYS slots 


2218 C8 


07830 
07840 ; 


RET 


Z 


;Return if spare found 


2219 2E01 


07850 


LD 


L,l 


;Start after DIR slot 


221B 2C 


07860 GSHLOOP INC 


L 


;Step to next 


221C 2002 


07870 


JR 


NZ, GSHTRY 


;Go if not done yet 


221E B4 


07880 


OR 


H 


;Set NZ flag 


221F C9 


07890 


RET 




;Return fai lure 


2220 7D 


07900 GSHTRY 


LD 


A,L 


;Skip unused parts 


2221 E61F 


07910 


AND 


1FH 




2223 FE00 


07920 GSH3 


CP 





;Cp with # of dir sectors 


2225 7D 


07930 


LD 


A,L 




2226 3805 


07940 


JR 


C, GSHOK 


;Go if NOT unused 


2228 F61F 


07950 


OR 


1FH 


;Force to end of row 


222A 6F 


07960 


LD 


L,A 




222B 18EE 


07970 


JR 


GSHLOOP 


;Loop back & ck for end 


222D 7E 


07980 GSHOK 


LD 


A,(HL) 


;P/u HIT byte 


222E B7 


07990 


OR 


A 


;Free? 
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222F C8 


08000 


RET 


Z 


;Done if so 


2230 18E9 


08010 
08020 ; 


JR 


GSHLOOP 


;Try next 




08030 ; 


Routi 


ne to rename a f* 


lespec/devspec 




08040 ; 








2232 3E18 


08050 REN0 LD 


A,18H 




2234 320620 


08060 


LD 


(WASMAT),A 




2237 B7 


08070 


OR 


A 


; Denote "file not in dir 


2238 C9 


08080 


RET 






2239 CD6615 


08090 RENAME CALL 


LNKFCB0 


;Save regs & link to IX 


223C DD7E00 


08100 


LD 


A,(IX+0) 


;If a device, use the 


223F D62A 


08110 


SUB 


i*i 


; "device" routine 


2241 2879 


08120 


JR 


Z,RENDEV 




2243 FEA8 


08130 


CP 


, R , !80H-'*' 


;Special open condition? 


2245 28EB 


08140 


JR 


Z,REN0 


;Go if so 


2247 E5 


08150 


PUSH 


HL 


;Save new pointer 


2248 217C00 


08160 


LD 


HL,SFLAG$ 


;Set don't test flags 


224B CBC6 


08170 


SET 


0,(HL) 




224D CD441F 


08180 


CALL 


OPEN1 


;0pen the "old" spec 


2250 El 


08190 


POP 


HL 




2251 C0 


08200 


RET 


NZ 


;Exit on error 


2252 DD7E01 


08210 


LD 


A.UX+1) 


;Make sure user has 


2255 E607 


08220 


AND 


7 


; permission to rename 


2257 FE03 


08230 


CP 


3 




2259 3804 


08240 


JR 


C.REN1 




225B 3E25 


08250 


LD 


A,25H 


;" Illegal access... 


225D B7 


08260 


OR 


A 




225E C9 


08270 
08280 


RET 








08290 


; User 


has access to rename - locate drivespec 




08300 








225F E5 


08310 1 


*EN1 PUSH 


HL 


;Save start 


2260 7E 


08320 1 


*EN2 LD 


A,(HL) 


;P/u char of new spec 


2261 23 


08330 


INC 


HL 




2262 FE0D 


08340 


CP 


CR 




2264 2808 


08350 


JR 


Z,REN3 


;Go on ENTER 


2266 FE03 


08360 


CP 


3 




2268 2804 


08370 


JR 


Z,REN3 


;Go on ETX 


226A FE3A 


08380 


CP 


i . i 




226C 20F2 


08390 


JR 


NZ,REN2 


;Loop on colon 


226E 2B 


08400 


REN3 DEC 


HL 


;Backup to where the 


226F 363A 


08410 


LD 


(HL),':' 


; colon should go 


2271 23 


08420 


INC 


HL 


; & force the drivespec 


2272 DD7E06 


08430 


LD 


A,(IX+6) 


; to the same as "old" 


2275 4F 


08440 


LD 


C,A 


;Keep drive spec in C 


2276 E607 


08450 


AND 


7 




2278 C630 


08460 


ADD 


A,'0« 


;Make it an ASCII digit 


22 7 A 77 


08470 


LD 


(HL),A 




227B 23 


08480 


INC 


HL 




227C 360D 


08490 


LD 


(HL),CR 




22 7E DD4607 


08500 


LD 


B,(IX+7) 


;Get DEC 


2281 DDE1 


08510 


POP 


IX 


;Put "new" FCB into IX 


2283 C5 


08520 


PUSH 


BC 


; & save DEC & drive 


2284 217C00 


08530 


LD 


HL,SFLAG$ 


;Set don't test flags 


2287 CBC6 


08540 


SET 


0,(HL) 




2289 CD441F 


08550 


CALL 


OPEN1 


;0pen the "new" spec 


228C CI 


08560 


POP 


BC 




228D 2004 


08570 


JR 


NZ,REN4 


;Should error here 


228F 3E13 


08580 


REN3A LD 


A, 19 


; or else return 


2291 B7 


08590 


OR 


A 


; if "new" is existing 


2292 C9 


08600 


RET 




; & we opened it 
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2293 FE18 


08610 REN4 


CP 


24 


;If not "fi le not found" 


2295 C0 


08620 


RET 


NZ 


; then is error 


2296 CDBB18 


08630 


CALL 


0DIRRD 


;Read "old's" directory 


2299 C0 


08640 


RET 


NZ 




229A C5 


08650 


PUSH 


BC 


;Save drive spec 


229B 54 


08660 


LD 


D,H 


;Xfer buffer hi 


229C 7D 


08670 


LD 


A,L 




229D C605 


08680 


ADD 


A, 5 


;Pt to filename field 


22 9F 5F 


08690 


LD 


E,A 


;Set buffer lo 


22A0 21E922 


08700 


LD 


HL,NAME$EXT 


; Point to where the 


22A3 010B00 


08710 


LD 


BC,11 


; new name is stored 


22A6 EDB0 


08720 


LDIR 




;Move in new name 


22A8 CI 


08730 


POP 


BC 




22A9 CD0318 


08740 


CALL 


@DIRWR 


;Rewrite the directory 


22AC CC9718 


08750 


CALL 


Z,@HITRD 


;Read the HIT 


22AF C0 


08760 


RET 


NZ 




22B0 54 


08770 


LD 


D,H 


;Set the buffer hi 


22B1 58 


08780 


LD 


E,B 


;Set the exact HIT lo 


22B2 21E922 


08790 


LD 


HL,NAME$EXT 


;This doesn't change C 


22B5 CD1E1E 


08800 


CALL 


HASHNAME 


;Hash the new name 


22B8 12 


08810 


LD 


(DE),A 


; Stuff code into HIT 


22B9 C39818 


08820 
08830 ; 


JP 


0HITWR 


;Rewrite & exit 




08840 ; 


Routine 


to rename a device 




08850 ; 








22 BC E5 


08860 RENDEV 


PUSH 


HL 


;Save new pointer 


22BD CD591E 


08870 


CALL 


GETDCB 


;Locate old in tables 


22C0 DDE1 


08880 


POP 


IX 


;Recover pointer to "new 


22C2 C0 


08890 


RET 


NZ 


;Back if not in tables 


22C3 7D 


08900 


LD 


A,L 




22C4 FE31 


08910 


CP 


DCBKL$ 


;Ck if protected device 


22C6 3E28 


08920 


LD 


A, 40 


;" Protected system devic 


22C8 D8 


08930 


RET 


C 




22C9 DD7E00 


08940 


LD 


A,(IX+0) 


;"new" must be a device 


22CC FE2A 


08950 


CP 


i*i 




22 CE 20 BF 


08960 


JR 


NZ,REN3A 


; "illegal file name.. . 


22D0 E5 


08970 


PUSH 


HL 


;Save address of "old" 


22D1 CD591E 


08980 


CALL 


GETDCB 


;Ck if "new" is unused 


22D4 El 


08990 


POP 


HL 


;Rcvr address of "old" 


22D5 28B8 


09000 


JR 


Z,REN3A 




22D7 010600 


09010 


LD 


BC,6 


; Point to name field 


22 DA 09 


09020 


ADD 


HL,BC 


; of "old" device 


22DB 73 


09030 


LD 


(HL),E 


;Stuff new name into 


22 DC 23 


09040 


INC 


HL 


; device control block 


22DD 72 


09050 


LD 


(HL),D 




22 DE AF 


09060 


XOR 


A 


;Set Z-flag 


22DF C9 


09070 
09080 ; 


RET 








09090 ; 


Parameter storage area 






09100 ; 








0001 


09110 FILEHASH 


DS 1 




0008 


09120 PSWDBUF 


DS 


8 




0008 


09130 NAME$EXT 


DS 8 




0003 


09140 FILE$EXT 


DS 3 




0002 


09150 PW$HASH1 


DS 2 




0002 


09160 PW$HASH2 


DS 2 




22F8 0000 


09170 


DW 





;ERN init 


22 FA 00 


09180 DIR$INIT 


DB 0,0,0,0 




00 00 00 










0001 


09190 LREC$ 


DS 


1 




22FF 


09200 LAST 


EQU 


$ 
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09210 




IFGT 


$,DIRBUF$ 




09220 




ERR 


'Module too big' 




09230 




ENDIF 




23FE 


09240 




ORG 


MAXC0R$-2 


23FE FF04 


09250 
09260 ; 




DW 


LAST-SYS2 ;0verlay length 


1E00 


09270 




END 


SYS2 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 (a@l 


0000 


@@2 


0000 @@3 


0000 @@4 


0000 


0ABORT 


1B08 PADTSK 


1CDA @BANK 


0877 


0BKSP 


1486 0BREAK 


196F <£>BYTEIO 


1300 


0CHNIO 


0689 @CKBRKC 


0553 (3CKDRV 


1993 


(3CKE0F 


158F 0CKTSK 


1CF5 (3CLOSE 


1999 


@CLS 


0545 0CMNDI 


197E @CMNDR 


197B 


0CTL 


0623 0DATE 


07A8 @DBGHK 


199F 


@DCINIT 


19C0 (9DCRES 


19C4 0DCSTAT 


19B5 


(9DCTBYT 


1A2B 0DEBUG 


19A0 (3DECHEX 


03E1 


0DIRCYL 


18F7 0DIRRD 


18BB 0DIRWR 


1803 


0DIV16 


06E3 0DIV8 


1927 (9D0DIR 


19AF 


@D0KEY 


19A9 @DSP 


0642 @DSPLY 


052D 


TERROR 


1B0F 0EXIT 


1B0B @FEXT 


1984 


@FLAGS 


196A 0FNAME 


199C ^FRENCH 


0000 


@FSPEC 


1981 @GATRD 


1874 @GATWR 


1875 


^GERMAN 


0000 @GET 


0638 (3GTDCB 


1990 


(s>GTDCT 


1A1E (9GTMOD 


19B2 (9HDFMT 


19E4 


(9HEX16 


07BD (PHEX8 


07C2 0HEXDEC 


06F6 


(3HIGH$ 


1948 (3HITRD 


1897 @HITWR 


1898 


@HZ50 


0000 @ICNFG 


0086 @INIT 


198D 


@INTL 


0000 @IPL 


1BF2 (9JCL 


0630 


@KBD 


0635 @KEY 


0628 @KEYIN 


0585 


(3KITSK 


0089 @KLTSK 


1CD0 @LOAD 


1B38 


@L0C 


14B3 0LOF 


14DE 0LOGER 


0503 


(3L0G0T 


0500 0MOD2 


0000 @M0D4 


FFFF 


@MSG 


0530 (9MUL16 


06C9 @MUL8 


190A 


@NMI 


0066 @0PEN 


198A (POPREG 


0084 


@ PAR AM 


1987 @PAUSE 


0382 @PEOF 


14A2 


@P0SN 


1434 SPRINT 


0528 (3PRT 


063D 


@PUT 


0645 (3RAMDIR 


19AC @RDHDR 


19D8 


(3RDSEC 


19F4 0RDSSC 


18D8 @RDTRK 


19E0 


0READ 


1513 0REMOVE 


19A6 ^RENAME 


1996 


GREW 


149B @RMTSK 


1CD7 (3RPTSK 


1CEB 


(9RREAD 


1473 0RSLCT 


19D4 0RST00 


0000 


(BRST08 


0008 (3RST10 


0010 @RST18 


0018 


@RST20 


0020 @RST28 


0028 (PRST30 


0030 


(9RST38 


0038 @RSTNMI 


0FE9 (3RSTOR 


19C8 


0RSTREG 


0680 (3RUN 


IBID 0RWRIT 


13AD 


0SEEK 


19D0 0SEEKSC 


1421 L3SKIP 


1430 


0SLCT 


19BC @SOUND 


0392 (3STEPI 


19CC 


(3TIME 


078D @USA 


FFFF (3VDCTL 


0B99 


@VDCTL3 


0D38 @VER 


1560 @VRSEC 


19DC 


0WEOF 


14EC 0WHERE 


1979 (9WRITE 


1531 


(PWRSEC 


19E8 0WRSSC 


19EC 0WRTRK 


19F0 


@ VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AUTO? 


1FF1 BAR$ 


0201 BOOTST$ 


439D 


BREAK? 


1C60 BRKVEC$ 


1C88 BUR$ 


0200 


CASHK$ 


0A7B CDCNT 


1ED4 CFCB$ 


00E0 


CFGFCB$ 


00E0 CFLAG$ 


006 C CKDR1 


1EC9 


CKDR2 


1ED6 CKDR2A 


1EDF CKDR2B 


1EE4 


CKDR3 


1F06 CKDR3A 


1F07 CKDR4 


1F11 


CKDR5 


1F14 CKDR7 


1F22 CKDR7A 


1F23 


CKDRV 


1E7A CKDRV1 


1E9D CKDRV1A 


1EA7 


CKMODG* 


1A7F CKOPEN@ 


1568 CONFIGS 


203F 


CORES 


0300 CR 


000D CRTBGN$ 


F800 


CYL GRN 


16AE D@FBYT8 


1A26 DATES 


0033 


DAYTBL$ 


04C7 DBGSV$ 


00 A0 DCBKL$ 


0031 


DCT$ 


0470 DCTBYT80 


1A29 DCTFLD@ 


1A34 
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DEVI 


1E62 DEV2 


1E72 DEV4 


1F2A 


DEVOPEN 


1F26 DFLAG$ 


006D DIRSINIT 


22FA 


DIRBUF$ 


2300 DIS DO RAM 


0846 DODATA$ 


0B94 


DODCB$ 


0210 DO CONTROL 


0C44 DO DSPCHAR 


0CB8 


DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 DO INVERT OFF 


0C9B 


DO MASK 


0000 DO RET 


0BCB DO RET1 


0BCC 


DO SCROLL 


0CCE DO TABS 


0BEA DSKTYP$ 


04C0 


DTPMTS 


04C2 DVREND$ 


0FF4 DVRHI$ 


0206 


EFLAG$ 


006E ENADIS DO RAM 


0817 ERR15 


2151 


ERR26 


214E ERR32 


2154 EXTDBG$ 


19A4 


FDDINT$ 


000E FEMSK$ 


006F FILE$EXT 


22F1 


FILEHASH 


22E0 FLGTAB$ 


006A FRCREAD 


208E 


6ETDCB 


1E59 GET @ ROWCOL 


0DAE GSH3 


2223 


GSHLOOP 


221B GSHOK 


222D GSHTRY 


2220 


GTDCB 


1E5F HASHNAME 


1E1E HASHPSWD 


1E2E 


HERTZ$ 


0750 HIGH$ 


040E HKRES$ 


1A6C 


HNAME1 


1E21 HNAME2 


1E2A HPSWD1 


1E38 


IFLAG$ 


0072 INBUF$ 


0420 INDEX 


1F17 


INIT 


2106 INIT1 


2128 INIT2 


213A 


INIT2A 


2149 INIT4 


2158 INIT5 


2179 


INTIMS 


003C INTMSK$ 


003D INTRON 


1EC3 


INTVC$ 


003E JCLCB$ 


0203 JDCB$ 


0024 


JFCB$ 


00C0 JLDCB$ 


0230 JRET$ 


0026 


KCK@ 


07D6 KFLAG$ 


0074 KIDATA$ 


08FC 


KIDCB$ 


0208 LAST 


22FF LBANK$ 


0202 


LDRV$ 


0023 LFLAG$ 


0075 LNKFCBG 


1566 


LOW$ 


001E LREC$ 


22FE LSVC$ 


000 D 


MAXCORS 


2400' MAXDAY$ 


0401 MINCOR$ 


3000 


MODOUTS 


0076 MONTBL$ 


04DC NAME$EXT 


22E9 


NFLAG$ 


0077 ONESID 


220D OPEN 


1F41 


OPEN1 


1F44 OPEN10 


1FBE OPEN11 


1FD1 


OPEN12 


2018 OPEN13 


201E 0PEN14 


2023 


OPEN15 


2030 0PEN16 


2035 OPEN2 


1F76 


0PEN3 


1F7D 0PEN4 


1F86 0PEN5 


1F92 


0PEN6 


1F95 OPEN7 


1F9A 0PEN8 


1FA9 


0PEN9 


1FB3 OPNCB 


203A OPNCB0 


2093 


OPNCBl 


20A2 OPNCB10 


2084 OPNCB2 


20A8 


OPNCB3 


20AA 0PNCB4 


20B2 OPNCB5 


20DD 


0PNCB6 


20FC OPNCB7 


2100 0PNCB8 


2064 


0PNCB9 


206D OPNEX 


204C OPNEXl 


204F 


0PNEX2 


2057 OPREG$ 


0078 OPREG SV AREA 


086E 


OPREG SV PTR 


0835 ORARET@ 


14DC OSRLSI 


003 B 


OSVERl 


0085 OVRLY$ 


0069 PAKNAM$ 


0410 


PAUSED 


0382 PCSAVE$ 


07AF PDRVS 


001 B 


PHIGH$ 


001C PRDCB$ 


0218 PSWDBUF 


22E1 


PUTA0DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


PW$HASH1 


22F4 PW$HASH2 


22F6 REN0 


2232 


REN1 


225F REN2 


2260 REN3 


226E 


REN3A 


228F REN4 


2293 RENAME 


2239 


RENDEV 


22BC RFLAG$ 


007B ROWCOL 2 ADDR 


0DD0 


RST380 


1BFF RSTOR$ 


04C4 RWRIT@ 


13A2 


S1DCB$ 


0238 SBUFF$ 


1D00 SET(s>EXEC 


1A79 


SET SCROLL 


0CF3 SFCB$ 


008C SFLAG.S 


007C 


SIDCB$ 


0220 SODCB$ 


0228 SPACE4$ 


2142 


SPRHIT 


21EE STACKS 


0380 STARTS 


0000 


SVCRETS 


000B SVCTABS 


0100 SYS2 


1E00 


SYSERR$ 


1B13 TCB$ 


004E TESTDRV 


1F9E 


TFLAG$ 


007D TIMES 


002D TIMERS 


002 C 


TIMSLS 


002B TIMTSK$ 


0713 TMPMTS 


04C3 


TRACE INT 


07B1 TYPHK$ 


0A8F TYPTSKS 


0B26 


USEPWD 


2002 USTOR$ 


0013 VFLAGS 


007F 
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WASMAT 


2006 WRINT$ 


0080 XFRSPEC 


2187 




XSPEC1 


218E XSPEC10 


21E1 XSPEC11 


21E7 




XSPEC3 


21A5 XSPEC6 


21C7 XSPEC7 


21CE 




XSPEC8 


21D2 XSPEC8A 


21D4 XSPEC9 


21D8 




ZEROS 


0401 ZEROA0 


13A0 







00000 Total errors 
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SYS3/SYS 

SYS3 handles closing a file or device, and restoring original filespec or device spec 
to the Control Block. During a file close, it also de-allocates space if the ending 
record number is smaller than it was upon open. It contains the code for the SVCs 
0CLOSE and @FNAME. 
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00100 ;SYS3/ASM - LS- 


DOS 6.2 




0000 


00110 
00120 ; 


TITLE . 


<SYS3 - LS-DOS 


6.2> 




00130 *LIST 


OFF 




;Get SYS0/EQU 




00150 *LIST 


ON 






000A 


00160 LF 


EQU 


10 




000D 


00170 CR 
00180 ; 


EQU 


13 




0000 


00190 *GET 


COPYCOM 


:3 


;Copyright message 




03010 ; COPYCOM - Fil 


e for Copyright 


COMment block 




03020 ; 








0000 


03030 
03040 ; 
00200 ; 


COM 


•<*(C) 1982,83, 


84 by LSI*>' 


1E00 


00210 
00220 ; 


ORG 


1E00H 




1E00 E670 


00230 SYS3 


AND 


70H 




1E02 C8 


00240 


RET 


Z 


;Back on zero entry 


1E03 FE10 


00250 


CP 


10H 




1E05 2806 


00260 


JR 


Z, CLOSE 


;Jump if close 


1E07 FE20 


00270 


CP 


20H 




1E09 CA2420 


00280 


JP 


Z,FNAME 


;Jump if filespec recover 


1E0C C9 


00290 


RET 






1E0D 1A 


00300 CLOSE 


LD 


A,(DE) 


;Test for device 


1E0E CB7F 


00310 


BIT 


7,A 




1E10 CA5D20 


00320 


JP 


Z s CLOSDEV 


;Jump if closing device 


1E13 CD6815 


00330 


CALL 


CKOPEN@ 


;Test for open file 


1E16 DD4E06 


00340 
00350 ; 


LD 


C.UX+6) 


;P/u drive # 




00360 ; 


Special 


MINI check drive routine 




00370 ; 








1E19 FDE5 


00380 


PUSH 


IY 


;Save IY 


1E1B CD1E1A 


00390 


CALL 


(3GTDCT 


;Pick up DCT for drive 


1E1E CDD419 


00400 CKAGN 


CALL 


(3RSLCT 


;Wait until not busy 


1E21 C28820 


00410 


JP 


NZ, HOLDUP 


;Go to error handler 


1E24 FDCB035E 


00420 


BIT 


3,(IY+3) 


;If hard drive, bypass 


1E28 2024 


00430 


JR 


NZ, SAWBLK 




1E2A FDCB0466 


00440 


BIT 


4,(IY+4) 


;If "ALIEN" by pass 


1E2E 201E 


00450 - 


JR 


NZ, SAWBLK 




1E30 FDCB047E 00460 


BIT 


7,(IY+4) 


;Ck if CKDRV inhibit 


1E34 2018 


00470 
00480 ; 


JR 


NZ, SAWBLK 


;Go if so 




00490 ; 


Test for diskette in di 


"ive (no index) 




00500 ; 








1E36 D5 


00510 


PUSH 


DE 




1E37 FD5605 


00520 


LD 


D,(IY+5) 


;P/u current track 


1E3A 1E00 


00530 


LD 


E,0 


;Set to sector 


1E3C CDD019 


00540 


CALL 


@SEEK 


;Do a command 


1E3F Dl 


00550 


POP 


DE 




1E40 0630 


00560 


LD 


B,30H 


;Set up count (short) 


1E42 CDD419 


00570 BLACK 


CALL 


(9RSLCT 


;Check for index pulse 


1E45 CB4F 


00580 


BIT 


1,A 


;Test index 


1E47 2805 


00590 


JR 


Z, SAWBLK 


;Saw black, seems OK 


1E49 10F7 


00600 


DJNZ 


BLACK 




1E4B C38820 


00610 
00620 ; 


JP 


HOLDUP 


;Close fault handler 




00630 ; 


Diskette is there, let 


's continue 




00640 ; 








1E4E FDE1 


00650 SAWBLK 


POP 


IY 


;Restore IY 


1E50 DD4607 


00660 


LD 


B,(IX+7) 


;P/u DEC of fpde 


1E53 CDBB18 


00670 


CALL 


0DIRRD 


;Read the directory 
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1E56 C0 


00680 


RET 


NZ 


;Quit if error there 


1E57 CB66 


00690 


BIT 


4 S (HL) 


;Ck for killed file 


1E59 C8 


00700 


RET 


Z 


;Quit if killed file 


1E5A E5 


00710 


PUSH 


HL 




1E5B C5 


00720 


PUSH 


BC 




1E5C CDA213 


00730 


CALL 


RWRITG 


;Write last buffer? 


1E5F CI 


00740 


POP 


BC 




1E60 El 


00750 


POP 


HL 




1E61 C0 


00760 


RET 


NZ 


;Ret on i/o error 


1E62 DDCB0076 


00770 


BIT 


6,(IX+0) 


;If user does not have 


1E66 CACD1F 


00780 


JP 


Z,RCVN0 


; close authority. . . 


1E69 2C 


00790 


INC 


L 


; else reset possible 


1E6A CBAE 


00800 


RES 


5,(HL) 


; file-open bit in DIR+1 


1E6C 2C 


00810 


INC 


L 


; Determine if the EOF 


1E6D 2C 


00820 


INC 


L 


; byte has changed 


1E6E DD7E08 


00830 


LD 


A s (IX+8) 


;P/u EOF byte offset 


1E71 E5 


00840 


PUSH 


HL 


;Save ptr to DIR+3 


1E72 BE 


00850 


CP 


(HL) 




1E73 2014 


00860 


JR 


NZ,CLOSl 


;Go if moved 


1E75 3E11 


00870 


LD 


A.11H 




1E77 85 


00880 


ADD 


A,L 




1E78 6F 


00890 


LD 


L,A 




1E79 DD7E0C 


00900 


LD 


A.UX+12) 


,P/u lo-order ERN 


1E7C BE 


00910 


CP 


(HL) 




1E7D 200A 


00920 


JR 


NZ,CLOSl 


;Go if moved 


1E7F 2C 


00930 


INC 


L 




1E80 DD7E0D 


00940 


LD 


A.UX+13) 


,P/u hi-order ERN 


1E83 BE 


00950 


CP 


(HL) 




1E84 2003 


00960 


JR 


NZ,CLOSl 


;Go if moved 


1E86 Fl 


00970 


POP 


AF 




1E87 181A 


00980 
00990 


JR 

5 


CLOS2 


Didn't move 




01000 


; Routine to change the 3-byte EOF marker 




01010 


s 






1E89 El 


01020 CLOS1 POP 


HL 


Pop DIR+3 


1E8A DD7E08 


01030 


LD 


A,dX+8) 


Xfer the eof offset 


1E8D 77 


01040 


LD 


(HL),A 




1E8E 3E11 


01050 


LD 


A.11H 




1E90 85 


01060 


ADD 


A,L 




1E91 6F 


01070 


LD 


L,A 




1E92 DD7E0C 


01080 


LD 


A,(IX+12) ; 


and the ERN from the F 


1E95 11 


01090 


LD 


(HL),A 




1E96 2C 


01100 


INC 


L 




1E97 DD7E0D 


01110 


LD 


A,dX+13) ; 


to the DIR entry 


1E9A 77 


01120 


LD 


(HL),A 




1E9B DDCB0056 01130 


BIT 


2.CIX+0) ; 


If fi le was updated 


1E9F 2010 


01140 


JR 


NZ,CLOS3 i 


then update mod date 


1EA1 1834 


01150 
01160 


JR 


CL0S5 ; 


else don't 




01170 


; Three- 


-byte EOF marker die 


not change 




01180 








1EA3 DDCB0056 01190 ( 


X0S2 BIT 


2,(IX+0) ; 


If file was updated 


1EA7 2008 


01200 


JR 


NZ,CL0S3 ; 


then update mod date 


1EA9 DDCB0076 01210 


BIT 


6,(IX+0) ; 


If close authority then 


1EAD 2028 


01220 


JR 


NZ,CL0S5 ; 


write back the DIR 


1EAF 182C 


01230 
01240 


JR 


CLOS6 ; 


else continue 




01250 


Routine to insert packed 


date into directory 




01260 . 








1EB1 E5 


01270 ( 


;LOS3 PUSH 


HL ; 


Save ptr to DIR+21 


1EB2 7D 


01280 


LD 


A,L ; 


Pt to start of dir rec 



Page 177 



The Source 


SYSTEM Fil 


es 


SYS3 - LS 


1EB3 E6E0 


01290 


AND 


0E0H 


1EB5 6F 


01300 


LD 


L,A 


1EB6 2C 


01310 


INC 


L 


1EB7 CBF6 


01320 


SET 


6,(HL) 


1EB9 113300 


01330 


LD 


DE, DATES 


1EBC 1A 


01340 


LD 


A,(DE) 


1EBD B7 


01350 


OR 


A 


1EBE 2802 


01360 


JR 


Z,$+4 


1EC0 D650 


01370 


SUB 


80 


1EC2 C5 


01380 


PUSH 


BC 


1EC3 47 


01390 


LD 


B,A 


1EC4 13 


01400 


INC 


DE 


1EC5 1A 


01410 


LD 


A,(DE) 


1EC6 07 


01420 


RLCA 




1EC7 07 


01430 


RLCA 




1EC8 07 


01440 


RLCA 




1EC9 B0 


01450 


OR 


B 


1ECA 2C 


01460 


INC 


L 


1ECB 77 


01470 


LD 


(HL),A 


1ECC 2D 


01480 


DEC 


L 


1ECD 13 


01490 


INC 


DE 


1ECE 1A 


01500 


LD 


A,(DE) 


1ECF 47 


01510 


LD 


B,A 


1ED0 7E 


01520 


LD 


A,(HL) 


1ED1 E6F0 


01530 


AND 


0F0H 


1ED3 B0 


01540 


OR 


B 


1ED4 77 


01550 


LD 


(HL),A 


1ED5 CI 


01560 


POP 


BC 


1ED6 El 


01570 CL0S4 


POP 


HL 


1ED7 E5 


01580 CLOS5 


PUSH 


HL 


1ED8 CD0318 


01590 


CALL 


(3DIRWR 


1EDB El 


01600 


POP 


HL 


1EDC C0 


01610 


RET 


NZ 


1EDD 2C 


01620 CL0S6 


INC 


L 


1EDE E5 


01630 


PUSH 


HL 


1EDF 7D 


01640 


LD 


A,L 


1EE0 D615 


01650 


SUB 


15H 


1EE2 6F 


01660 


LD 


L,A 


1EE3 CB7E 


01670 


BIT 


7,(HL) 


1EE5 El 


01680 


POP 


HL 


1EE6 C2CD1F 


01690 


JP 


NZ,RCVN0 


1EE9 110000 


01700 


LD 


DE,0 


1EEC 7E 


01710 CLOS7 


LD 


A,(HL) 


1EED 2C 


01720 


INC 


L 


IEEE FEFE 


01730 


CP 


0FEH 


1EF0 300C 


01740 


JR 


NC.CL0S8 


1EF2 7E 


01750 


LD 


A,(HL) 


1EF3 2C 


01760 


INC 


L 


1EF4 E61F 


01770 


AND 


1FH 


1EF6 3C 


01780 


INC 


A 


1EF7 83 


01790 


ADD 


A,E 


1EF8 5F 


01800 


LD 


E,A 


1EF9 30F1 


01810 


JR 


NC,CLOS7 


1EFB 14 


01820 


INC 


D 


1EFC 18EE 


01830 


JR 


CLOS7 


1EFE 200B 


01840 CL0S8 


JR 


NZ,CL0S9 


1F00 46 


01850 


LD 


B,(HL) 


1F01 CDBB18 


01860 


CALL 


0DIRRD 


1F04 C0 


01870 


RET 


NZ 


1F05 7D 


01880 


LD 


A,L 


1F06 C616 


01890 


ADD 


A,16H 



Page 00003 



Pt to DIR+1 
Set the MOD flag 
Point to year 
If year = 0, then date 
is 00/00/00 

Offset from 1980 

Year-80 -> regB 

Point to day 

Shift day into 3-7 & 
merge the year into 
the To-order bits 



; Store day/ year 
;Point to month 

;P/u dir byte 
;Strip old month 
;Merge month & 
; update the field 

;Rcvr DIR+21 

;Write back DIR entry 



Pt to DIR+22 which is 
the 1st extent 

Backup to DIR+1 

Test if created 

Bypass if created 
Init gran counter 
P/u cyl indicator 
Pt to gran alloc 
Extent in use? 
Jump if spare or FXDE 
P/u granule allocation 
Pt to next extent 
Strip off # of grans & 

adjust for zero offset 
Accumulate the number of 

grans in this extent 
Any previous quantity 



;Found all grans in this 
; extent, ck for FXDE 



;Point to extents in FXDE 
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1F08 6F 


01900 


LD 


L,A 




1F09 18E1 


01910 
01920 ; 


JR 


CLQS7 ; 


Go to continue count 




01930 ; 


Routine 


to determine neec 


to deallocate 




01940 ; 








1F0B E5 


01950 CLOS9 


PUSH 


HL ; 


Save ptr to last extent 


1F0C DD6E0C 


01960 


LD 


L,(IX+12) ; 


P/u ending record # 


1F0F DD660D 


01970 


LD 


H 9 (IX+13) 




1F12 3E08 


01980 


LD 


A,8 ; 


Get # sectors/gran 


1F14 CD2B1A 


01990 


CALL 


0DCTBYT 




1F17 E61F 


02000 


AND 


1FH ; 


Remove other data 


1F19 F5 


02010 


PUSH 


AF ; 


Save the # 


1F1A 85 


02020 


ADD 


A 9 L \ 


Round up to next 


1F1B 6F 


02030 


LD 


L g t\ 9 


higher gran 


1F1C 3001 


02040 


JR 


NC 9 CLOS10 




1F1E 24 


02050 


INC 


H 




1F1F Fl 


02060 CLOS10 


POP 


AF ; 


Rcvr # sectors/gran 


1F20 3C 


02070 


INC 


A ; 


Adjust for division 


1F21 CDE306 


02080 


CALL 


@DIV16 ; 


Calculate # grans in use 


1F24 AF 


02090 


XOR 


A ; 


Subtract the # of grans 


1F25 EB 


02100 


EX 


DE,HL ; 


used from the # of 


1F26 ED52 


02110 


SBC 


HL,DE ; 


grans allocated in the 


1F28 EB 


02120 


EX 


DE S HL ; 


directory, and move DE 


1F29 El 


02130 


POP 


HL ; 


Rcvr ptr to last extent 


1F2A CACD1F 


02140 


JP 


Z,RCVN0 ; 


Jump if same quantity 


1F2D DACD1F 


02150 
02160 ; 


JP 


CRCVN0 ; 


Jump if now more 




02170 ; 


Need to 


deallocate space 






02180 ; 








1F30 CD7418 


02190 


CALL 


0GATRD ; 


Read GAT 


1F33 C0 


02200 


RET 


NZ 




1F34 1841 


02210 


JR 


BAKUP 


B/u to last used extent 


1F36 D5 


02220 CLOS11 


PUSH 


DE 


,Sv count of excess grans 


1F37 7E 


02230 


LD 


A,(HL) 


P/u alloc info 


1F38 E6E0 


02240 


AND 


0E0H 


Get starting relative 


1F3A 07 


02250 


RLCA 




gran into reg-E 


1F3B 07 


02260 


RLCA 






1F3C 07 


02270 


RLCA 






1F3D 5F 


02280 


LD 


E,A 




1F3E 7E 


02290 


LD 


A,(HL) 


,# of contiguous grans 


1F3F E61F 


02300 


AND 


1FH 


.Remove unneeded data 


1F41 83 


02310 


ADD 


A,E 


^Calculate ending 


1F42 5F 


02320 


LD 


E,A 


; relative gran # 


1F43 3E08 


02330 


LD 


A, 8 


;P/u the # of grans 


1F45 CD2B1A 


02340 


CALL 


0DCTBYT 


; per cylinder 


1F48 07 


02350 


RLCA 






1F49 07 


02360 


RLCA 






1F4A 07 


02370 


RLCA 






1F4B E607 


02380 


AND 


7 


;Move into bits 0-2 


1F4D 3C 


02390 


INC 


A 


;Adjust for zero offset 


1F4E 57 


02400 


LD 


D,A 


;Save count 


1F4F 3E04 


02410 


LD 


A, 4 




1F51 CD2B1A 


02420 


CALL 


0DCTBYT 




1F54 CB6F 


02430 


BIT 


5, A 


;2-sided disk? 


1F56 7A 


02440 


LD 


A,D 


;Rcvr count 


1F57 2801 


02450 


JR 


Z,$+3 


;Bypass if 1-sided 


1F59 07 


02460 


RLCA 




;Double count 


1F5A CD2719 


02470 


CALL 


@DIV8 


;A=quotient, E=remainder 


1F5D 2D 


02480 


DEC 


L 


;Pt to starting cylinder 


1F5E 86 


02490 


ADD 


A,(HL) 


;Bump cyl pointer by how 


1F5F 57 


02500 


LD 


D,A 


; many excessive cyls to 
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1F60 E5 


02510 


PUSH 


HL 


; start from the rear 


1F61 C5 


02520 


PUSH 


BC 




1F62 2623 


02530 


LD 


H s DIRBUF$<-8 


;Pt to that cyl's GAT 


1F64 6A 


02540 


LD 


L,D 




1F65 46 


02550 


LD 


B S (HL) 


;P/u the GAT allocation 


1F66 7B 


02560 


LD 


A,E 




1F67 CD7B20 


02570 


CALL 


CALCBIT 


Reallocate a gran 


1F6A 70 


02580 


LD 


(HL) 9 B 


;Repl GAT byte 


1F6B CI 


02590 


POP 


BC 




1F6C El 


02600 


POP 


HL 




1F6D 2C 


02610 


INC 


L 


;Repoint to alloc info 


1F6E 35 


02620 


DEC 


(HL) 


;Reduce by 1 gran 


1F6F 7E 


02630 


LD 


A S (HL) 


;Get info on contig gran 


1F70 3C 


02640 


INC 


A 


;Adj for zero offset 


1F71 E61F 


02650 


AND 


1FH 


;Strip unneeded 


1F73 Dl 


02660 


POP 


DE 


;Rcvr excess gran count 


1F74 IB 


02670 


DEC 


DE 


; and count down 


1F75 2043 


02680 


JR 


NZ s CLOS12 


;Go if extent still used 


1F77 36FF 


02690 BAKUP 


LD 


(HL) s 0FFH 


; else extent is spare 


1F79 2D 


02700 


DEC 


L 




1F7A 36FF 


02710 


LD 


(HL),0FFH 




1F7C 2D 


02720 


DEC 


L 




1F7D 7D 


02730 


LD 


A S L 


;Chack if backed all the 


1F7E E61F 


02740 


AND 


1FH 


; way thru this entry 


1F80 FE15 


02750 


CP 


15H 




1F82 2036 


02760 


JR 


NZRLOS12 


;Go if not 


1F84 AD 


02770 


XOR 


L 


Reallocate this FXDE 


1F85 6F 


02780 


LD 


L,A 




1F86 CB7E 


02790 


BIT 


7 S (HL) 


;Was it the FPDE? 


1F88 2830 


02800 


JR 


ZRLOS12 


Rypass if FPDE 


1F8A 3600 


02810 


LD 


(HL) s 


;Show dir is spare 


1F8C CD0318 


02820 


CALL 


0DIRWR 


;Write back 


1F8F C0 


02830 


RET 


NZ 




1F90 78 


02840 


LD 


AR 


;P/u deallocated DEC 


1F91 E6E0 


02850 


AND 


0E0H 




1F93 3C 


02860 


INC 


A 


;Pt to DIR+1 


1F94 6F 


02870 


LD 


L,A 




1F95 7E 


02880 


LD 


A,(HL) 


;P/u previous DEC 


1F96 32A51F 


02890 


LD 


(STUFDEC+D.A 


;Save in instruction 


1F99 CD9718 


02900 


CALL 


(3HITRD 


;Read the HIT 


1F9C C0 


02910 


RET 


NZ 




1F9D 68 


02920 


LD 


L, B 


;Point to deallocated HIT 


1F9E 3600 


02930 


LD 


(HL),0 


Reallocate space in HIT 


1FA0 CD9818 


02940 


CALL 


0HITWR 


;Write back 


1FA3 C0 


02950 


RET 


NZ 




1FA4 0600 


02960 STUFDEC 


LD 


B,0 


;P/u previous DEC 


1FA6 CDBB18 


02970 


CALL 


0DIRRD 


;Read its dir entry 


1FA9 C0 


02980 


RET 


NZ 




1FAA 78 


02990 


LD 


A,B 




1FAB F61F 


03000 


OR 


1FH 


;Pt to end of entry 


1FAD 6F 


03010 


LD 


L,A 




1FAE 36FF 


03020 


LD 


(HL),0FFH 


;Erase pointer 


1FB0 2D 


03030 


DEC 


L 


; to deallocated FXDE 


1FB1 36FF 


03040 


LD 


(HL),0FFH 




1FB3 2D 


03050 


DEC 


L 


;Point to previous extent 


1FB4 E5 


03060 


PUSH 


HL 


Rave pointer 


1FB5 CD0318 


03070 


CALL 


0DIRWR 


; Write back 


1FB8 El 


03080 


POP 


HL 




1FB9 C0 


03090 


RET 


NZ 




1FBA 7A 


03100 CLOS12 


LD 


AR 


Roop if still more to 


1FBB B3 


03110 


OR 


E 


; deallocate 
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1FBC C2361F 


03120 


JP 


NZ,CLOSll 




1FBF CD0318 


03130 


CALL 


0DIRWR 




1FC2 2805 


03140 


JR 


Z,CLOS13 


;Go if no write error 


1FC4 FE0F 


03150 


CP 


15 


;"write protected.. . 


1FC6 C0 


03160 


RET 


NZ 


;Bad if not 


1FC7 1804 


03170 
03180 ; 


JR 


RCVN0 




1FC9 CD7518 


03190 CL0S13 


CALL 


0GATWR 


;Write back the altered G 


1FCC C0 


03200 
03210 ; 


RET 


NZ 






03220 ; 


Routine 


i starts to recover file spec 




03230 ; 








1FCD DD7E07 


03240 RCVN0 


LD 


A,(IX+7) 


;P/u DEC of FPDE 


1FD0 DD4E06 


03250 


LD 


C.CIX+6) 


;P/u drive 


1FD3 A8 


03260 


XOR 


B 


;Check if its directory 


1FD4 E61F 


03270 


AND 


1FH 


; record is resident 


1FD6 DD4607 


03280 


LD 


B s (IX+7) 


;P/u DEC of FPDE 


1FD9 C4BB18 


03290 


CALL 


NZ,@DIRRD 


;Get FPDE dir if needed 


1FDC C0 


03300 


RET 


NZ 




1FDD DDE5 


03310 


PUSH 


IX 


;Transfer FCB to DE 


1FDF Dl 


03320 


POP 


DE 




1FE0 79 


03330 RCVNAM 


LD 


A,C 




1FE1 E607 


03340 


AND 


7 


;Convert drive to ASCII 


1FE3 F630 


03350 


OR 


'0' 




1FE5 321C20 


03360 


LD 


(RCVN5+1),A 




1FE8 261D 


03370 


LD 


H 9 SBUFF$<-8 


;Pt to DIR+5 (name) 


1FEA 78 


03380 


LD 


A S B 




1FEB E6E0 


03390 


AND 


0E0H 




1FED F605 


03400 


OR 


5 




1FEF 6F 


03410 


LD 


L,A 




1FF0 E5 


03420 


PUSH 


HL 


;Save name start posn 


1FF1 0608 


03430 


LD 


B 9 8 


;Init 8 chars max 


1FF3 7E 


03440 RCVN1 


LD 


A,(HL) 


;Move filename from 


1FF4 FE20 


03450 


CP 


i i 


; direc to fcb 


1FF6 2805 


03460 


JR 


Z,RCVN2 




1FF8 12 


03470 


LD 


(DE) S A 




1FF9 23 


03480 


INC 


HL 




1FFA 13 


03490 


INC 


DE 




1FFB 10F6 


03500 


DJNZ 


RCVN1 


;Loop up to 8 


1FFD El 


03510 RCVN2 


POP 


HL 




1FFE 7D 


03520 


LD 


A,L 




1FFF C608 


03530 


ADD 


A, 8 


;Pt to extension 


2001 6F 


03540 


LD 


L,A 




2002 7E 


03550 


LD 


A,(HL) 




2003 FE20 


03560 


CP 


1 ' 




2005 2810 


03570 


JR 


Z,RCVN4 


;Jump if none 


2007 3E2F 


03580 


LD 


A,'/' 




2009 12 


03590 


LD 


(DE),A 


;Stuff separator into fcb 


200A 13 


03600 


INC 


DE 




200B 0603 


03610 


LD 


B,3 


;Init 3-char extension 


200D 7E 


03620 RCVN3 


LD 


A,(HL) 


;Stuff the ext 


200E FE20 


03630 


CP 


i i 


; into fcb 


2010 2805 


03640 


JR 


Z,RCVN4 




2012 12 


03650 


LD 


(DE),A 




2013 23 


03660 


INC 


HL 




2014 13 


03670 


INC 


DE 




2015 10F6 


03680 


DJNZ 


RCVN3 




2017 3E3A 


03690 RCVN4 


LD 


A,':' 


;Stuff drive indicator 


2019 12 


03700 


LD 


(DE) S A 




201A 13 


03710 


INC 


DE 




201B 3E00 


03720 RCVN5 


LD 


A s 


;P/u drive in ASCII 



Page 181 



The Source 


SYSTEM Files 


SYS3 - LS-DOS 6 


.2 Page 00007 


201D 12 


03730 


LD 


(DE),A 


; & stuff it 


201E 13 


03740 


INC 


DE 




201F 3E03 


03750 


LD 


A,3 


;Close FCB with ETX 


2021 12 


03760 


LD 


{DE) 9 A 




2022 AF 


03770 


XOR 


A 




2023 C9 


03780 
03790 , 


RET 








03800 


; Routine 


to recover the 


filespec 




03810 , 








2024 E5 


03820 FNAME PUSH 


HL 




2025 D5 


03830 
03840 , 


PUSH 

> 


DE 






03850 . 


, Calculate the number of 


directory sectors 




03860 : 


, = (fsectors x fheads) - 


2 for GAT & HIT 




03870 , 


* 






2026 3E07 


03880 


LD 


A,7 


;Get highest # sector 


2028 CD2B1A 


03890 


CALL 


@DCTBYT 




202B 57 


03900 


LD 


D S A 


;Store heads & sectors 


202C E61F 


03910 


AND 


1FH 


;Rake off # sectors 


202E 5F 


03920 


LD 


E,A 


; & stuff into E 


202F 1C 


03930 


INC 


E 


;Bump for offset 


2030 AA 


03940 


XOR 


D 


;Recover # heads 


2031 07 


03950 


RLCA 




; into bits 0-2 


2032 07 


03960 


RLCA 






2033 07 


03970 


RLCA 






2034 3C 


03980 


INC 


A 


;Bump for offset 


2035 CD0A19 


03990 


CALL 


0MUL8 


;Multiply sectors x heads 


2038 5F 


04000 


LD 


E.A 


;Now check double bit 


2039 3E04 


04010 


LD 


A,4 




203B CD2B1A 


04020 


CALL 


(3DCTBYT 




203E CB6F 


04030 


BIT 


5, A 


;Set if 2-sided 


2040 7B 


04040 


LD 


A,E 




2041 2801 


04050 


JR 


Z,ONESID 


;Go if not set else 


2043 87 


04060 


ADD 


A,A 


; double value 


2044 D602 


04070 ONESID SUB 


2 


;Reduce for GAT & HIT 


2046 57 


04080 


LD 


D,A 




2047 78 


04090 


LD 


A,B 




2048 E61F 


04100 


AND 


1FH 


;Calc req sector # 


204A BA 


04110 


CP 


D 




204B 3805 


04120 


JR 


CFNAM1 




204D 3E10 


04130 


LD 


A, 16 


;" IT legal logical file # 


204F B7 


04140 


OR 


A 




2050 1808 


04150 


JR 


FNAM2 




2052 Dl 


04160 FNAM1 POP 


DE 




2053 D5 


04170 


PUSH 


DE 




2054 CDBB18 


04180 


CALL 


0DIRRD 




2057 CCE01F 


04190 


CALL 


Z,RCVNAM 


;Rcvr the filespec 


205A Dl 


04200 FNAM2 POP 


DE 




205B El 


04210 


POP 


HL 




205C C9 


04220 
04230 


RET 








04240 


, Close a 


logical device 






04250 








205D FE10 


04260 ( 


:losdev CP 


10H 


;If not open device, 


205F 3E26 


04270 


LD 


A, 38 


; return "file not open. 


2061 C0 


04280 


RET 


NZ 




2062 CD6615 


04290 


CALL 


LNKFCB0 


;Link to FCB 


2065 DD4E06 


04300 


LD 


C,(IX+6) 


;Get device name 


2068 DD4607 


04310 


LD 


B,(IX+7) 




206B DD36002A 04320 


LD 


(IX+0), 1 *' 


;Stuff device indicator 


206F DD7101 


04330 


LD 


(IX+D.C 


;Stuff 1st char of name 
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2072 DD7002 


04340 




LD 


(IX+2),B 


; Stuff 2nd char of name 


2075 DD360303 


04350 




LD 


(IX+3),3 


;Terminate with ETX 


2079 AF 


04360 




XOR 


A 




207A C9 


04370 
04380 ; 




RET 








04390 ; 




Calcu 


late GAT bit to 


deallocate 




04400 ; 










207B E607 


04410 CALCBIT AND 


7 


;Make binary bit # into 


207D 07 


04420 




RLCA 




; the proper RES 


207E 07 


04430 




RLCA 




; opcode 


207F 07 


04440 




RLCA 






2080 F680 


04450 




OR 


80H 




2082 328620 


04460 




LD 


(CALC1+1),A 




2085 CB80 


04470 CALC1 


RES 


0,B 


;Reset bit in GAT 


2087 C9 


04480 
04490 ; 




RET 








04500 ; 




User 


removed disk wi 


th an open file 




04510 ; 










2088 E5 


04520 HOLDUF 


> PUSH 


HL 




2089 D5 


04530 




PUSH 


DE 




208A 21AE20 


04540 




LD 


HL, HOLDUPS 


;Pt to message 


208D CD2D05 


04550 




CALL 


0DSPLY 


;Display to console 


2090 CD5305 


04560 




CALL 


0CKBRKC 


;Clear out break bit 


2093 CD3506 


04570 WAITING CALL 


0KBD 


;Scan the keyboard 


2096 20FB 


04580 




JR 


NZ, WAITING 


;Keep looking 


2098 FE0D 


04590 




CP 


CR 


;Check for <ENTER> 


209A 280D 


04600 




JR 


Z, TRYNOW 




209C CD5305 


04610 




CALL 


0CKBRKC 


;Check for a break 


209F 28F2 


04620 




JR 


Z, WAITING 




20A1 Dl 


04630 ABRT 


POP 


DE 




20A2 El 


04640 




POP 


HL 




20A3 FDE1 


04650 




POP 


IY 


;Restore from above 


20A5 3E20 


04660 




LD 


A, 32 


;Show illegal drive # 


20A7 B7 


04670 




OR 


A 


;Set NZ condition 


20A8 C9 


04680 




RET 




;Go back now 


20A9 Dl 


04690 TRYNOW POP 


DE 




20AA El 


04700 




POP 


HL 




20AB C31E1E 


04710 




JP 


CKAGN 


;Try checking again 


20AE 0A 


04720 HOLDUPS DB 


LF,'** CLOSE 


FAULT ** Drive not ready, 


2A 2A 20 43 4C 4F 


53 


45 






20 46 41 


55 4C 54 20 2A 






2A 20 20 44 72 69 


76 


65 






20 6E 6F 


74 20 72 


65 


61 






64 79 2C 20 










20D3 3C 


04730 




DB 


'<ENTER> to 


retry, <BREAK> to abort', CR 


45 4E 54 


45 52 3E 


20 74 






6F 20 72 65 74 72 


79 


2C 






20 3C 42 52 45 41 


4B 


3E 






20 74 6F 


20 61 62 


6F 


72 






74 0D 












20F6 


04740 LAST 


EQU 


$ 






04750 




IFGT 


$,DIRBUF$ 






04760 




ERR 


'Module too 


big' 




04770 




ENDIF 






23FE 


04780 




ORG 


MAXC0R$-2 




23FE F602 


04790 
04800 ; 




DW 


LAST-SYS3 


;0verlay length 


1E00 


04810 




END 


SYS3 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 @@1 


0000 


0(92 


0000 @@3 


0000 @@4 


0000 


0ABORT 


1B08 @ADTSK 


1CDA @BANK 


0877 


0BKSP 


1486 0BREAK 


196F @BYTEIO 


1300 


@CHNI0 


0689 0CKBRKC 


0553 0CKDRV 


1993 


0CKEOF 


158F 0CKTSK 


1CF5 (9CLOSE 


1999 


GCLS 


0545 (9CMNDI 


197E @CMNDR 


197B 


(9CTL 


0623 @DATE 


07A8 @DBGHK 


199F 


0DCINIT 


19C0 (3DCRES 


19C4 0DCSTAT 


19B5 


@DCTBYT 


1A2B GDEBUG 


19A0 (9DECHEX 


03E1 


PDIRCYL 


18F7 @DIRRD 


18BB 0DIRWR 


1803 


0DIV16 


06E3 @DIV8 


1927 @DODIR 


19AF 


0DOKEY 


19A9 @DSP 


0642 @DSPLY 


052D 


TERROR 


1B0F @EXIT 


1B0B 0FEXT 


1984 


GFLAGS 


196A 0FNAME 


199C ^FRENCH 


0000 


0FSPEC 


1981 @GATRD 


1874 0GATWR 


1875 


^GERMAN 


0000 @GET 


0638 0GTDCB 


1990 


0GTDCT 


1A1E 0GTMOD 


19B2 0HDFMT 


19E4 


0HEX16 


07BD (3HEX8 


07C2 (3HEXDEC 


06F6 


@HIGH$ 


1948 0HITRD 


1897 0HITWR 


1898 


0HZ50 


0000 0ICNFG 


0086 GINIT 


198D 


0INTL 


0000 @ I PL 


1BF2 @JCL 


0630 


@KBD 


0635 @KEY 


0628 0KEYIN 


0585 


0KITSK 


0089 0KLTSK 


1CD0 0LOAD 


1B38 


@LOC 


14B3 (3L0F 


14DE 0LOGER 


0503 


0LOGOT 


0500 0MOD2 


0000 @M0D4 


FFFF 


GMSG 


0530 0MUL16 


06C9 @MUL8 


190A 


@NMI 


0066 0OPEN 


198A @OPREG 


0084 


@PARAM 


1987 @PAUSE 


0382 0PEOF 


14A2 


0POSN 


1434 SPRINT 


0528 @PRT 


063D 


@PUT 


0645 0RAMDIR 


19AC 0RDHDR 


19D8 


@RDSEC 


19F4 (3RDSSC 


18D8 0RDTRK 


19E0 


@READ 


1513 ^REMOVE 


19A6 ^RENAME 


1996 


(3REW 


149B 0RMTSK 


1CD7 G>RPTSK 


1CEB 


0RREAD 


1473 (PRSLCT 


19D4 0RST00 


0000 


0RST08 


0008:@RST10 


0010 0RST18 


0018 


(9RST20 


0020 @RST28 


0028 @RST30 


0030 


0RST38 


0038 (3RSTNMI 


0FE9 @RSTOR 


19C8 


0RSTREG 


0680 @RUN 


IBID @RWRIT 


13AD 


(3SEEK 


19D0 0SEEKSC 


1421 @SKIP 


1430 


0SLCT 


19BC (aSOUND 


0392 @STEPI 


19CC 


0TIME 


078D @USA 


FFFF 0VDCTL 


0B99 


0VDCTL3 


0D38 @VER 


1560 0VRSEC 


19DC 


@WEOF 


14EC 0WHERE 


1979 0WRITE 


1531 


0WRSEC 


19E8 @WRSSC 


19EC (3WRTRK 


19F0 


@ VDCTL 


0D42 ABRT 


20A1 ADDR 2 ROWCOL 


0DF1 


AFLAG$ 


006A AUTO? 


1FF1 BAKUP 


1F77 


BAR$ 


0201 BLACK 


1E42 BOOTST$ 


439D 


BREAK? 


1C60 BRKVEC$ 


1C88 BUR$ 


0200 


CALC1 


2085 CALCBIT 


207B CASHK$ 


0A7B 


CFCB$ 


00E0 CFGFCB$ 


00E0 CFLAG$ 


006C 


CKAGN 


1E1E CKMOD@ 


1A7F CKOPEN0 


1568 


CLOS1 


1E89 CLOS10 


1F1F CLOS11 


1F36 


CLOS12 


1FBA CL0S13 


1FC9 CLOS2 


1EA3 


CLOS3 


1EB1 CL0S4 


1ED6 CLOS5 


1ED7 


CL0S6 


1EDD CLOS7 


1EEC CL0S8 


1EFE 


CL0S9 


1F0B CLOSDEV 


205D CLOSE 


1E0D 


CONFIG$ 


203F CORES 


0300 CR 


000 D 


CRTBGN$ 


F800 CYL GRN 


16AE D(3FBYT8 


1A26 



Page 
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DATES 


0033 DAYTBL$ 


04C7 DBGSVS 


00A0 




DCBKL$ 


0031 DCT$ 


0470 DCTBYT8@ 


1A29 




DCTFLD(9 


1A34 DFLAG$ 


006D DIRBUFS 


2300 




DIS DO RAM 


0846 DODATAS 


0B94 DODCBS 


0210 




DO CONTROL 


0C44 DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C 




DO INVERT ENA 


0C89 DO INVERT OFF 


0C9B DO MASK 


0000 




DO RET 


0BCB DO RET1 


0BCC DO SCROLL 


0CCE 




DO TABS 


0BEA DSKTYP$ 


04C0 DTPMTS 


04C2 




DVREND$ 


0FF4 DVRHI$ 


0206 EFLAGS 


006 E 




ENADIS DO RAM 


0817 EXTDBGS 


19A4 FDDINTS 


000E 




FEMSK$ 


006F FLGTAB$ 


006A FNAM1 


2052 




FNAM2 


205A FNAME 


2024 GET @ ROWCOL 


0DAE 




HERTZ$ 


0750 HIGH$ 


040E HKRESS 


1A6C 




HOLDUP 


2088 HOLDUPS 


20AE IFLAGS 


0072 




INBUF$ 


0420 INTIMS 


003C INTMSKS 


003D 




INTVC$ 


003E JCLCBS 


0203 JDCBS 


0024 




JFCB$ 


00C0 JLDCBS 


0230 JRETS 


0026 




KCK@ 


07D6 KFLAGS 


0074 KIDATAS 


08FC 




KIDCB$ 


0208 LAST 


20F6 LBANKS 


0202 




LDRV$ 


0023 LF 


000A LFLAGS 


0075 




LNKFCB0 


1566 LOWS 


001E LSVCS 


000D 




MAXCOR$ 


2400 MAXDAYS 


0401 MINCORS 


3000 




MODOUTS 


0076 MONTBLS 


04DC NFLAGS 


0077 




ONESID 


2044 OPREGS 


0078 OPREG SV AREA 


086E 




OPREG SV PTR 


0835 ORARET0 


14DC OSRLSl 


003B 




OSVERl 


0085 OVRLYS 


0069 PAKNAMS 


0410 




PAUSED 


0382 PCSAVES 


07AF PDRVS 


001B 




PHIGH$ 


001C PRDCBS 


0218 PUTA0DE 


0DCD 




PUT @ 


0DCA PUT @ ROWCOL 


0DC6 RCVN0 


1FCD 




RCVNl 


1FF3 RCVN2 


1FFD RCVN3 


200D 




RCVN4 


2017 RCVN5 


201B RCVNAM 


1FE0 




RFLAG$ 


007B ROWCOL 2 ADDR 


0DD0 RST38@ 


1BFF 




RSTOR$ 


04C4 RWRIT@ 


13A2 S1DCBS 


0238 




SAWBLK 


1E4E SBUFFS 


1D00 SET0EXEC 


1A79 




SET SCROLL 


0CF3 SFCBS 


008C SFLAGS 


007C 




SIDCB$ 


0220 SODCBS 


0228 SPACE4S 


2142 




STACKS 


0380 STARTS 


0000 STUFDEC 


1FA4 




SVCRET$ 


000B SVCTABS 


0100 SYS3 


1E00 




SYSERR$ 


1B13 TCBS 


004E TFLAGS 


007D 




TIMES 


002D TIMERS 


002C TIMSLS 


002B 




TIMTSK$ 


0713 TMPMTS 


04C3 TRACE INT 


07B1 




TRYNOW 


20A9 TYPHKS 


0A8F TYPTSKS 


0B26 




USTOR$ 


0013 VFLAGS 


007F WAITING 


2093 




WRINTS 


0080 ZEROS 


0401 ZEROA0 


13A0 





1E00 is the transfer address 
00000 Total errors 
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SYS4/SYS 

SYS4 handles the system error routines, either displaying an error message or placing 
the message in a user specified buffer. Besides the standard error codes, an "extended 
error" (error number 63) will display an error value placed in the HL register pair. 
The only SVC handled by SYS4 is TERROR. 
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000A 



00100 ;SYS4/ASM - LS-DOS 6.2 

00110 TITLE <SYS4 - LS-DOS 6.2> 

00120 LF EQU 10 

00130 CR EQU 13 

00140 *LIST OFF ;Get SYS0/EQU 

00160 *LIST ON 

00170 *GET COPYCOM:3 ;Copyright message 

03010 ; COPYCOM - File for Copyright COMment block 

03020 ; 

COM '<*(C) 1982,83,84 by LSI*>' 



0000 03030 
03040 ; 
00180 ; 
1E00 00190 

00200 ; 
1E00 C3AF1E 00210 SYS4 JP 
00220 ; 
00230 ; 
00240 ; 
1E03 01 00250 MSG0 DB 
82 

00260 ; 
1E05 04 00270 MSG1 DB 
02 05 06 89 

00280 ; 
1E0A 08 00290 MSG2 DB 
02 05 89 

00300 ; 
1E0E 0B 00310 MSG3 DB 
07 05 89 

00320 ; 
1E12 04 00330 MSG4 DB 
02 05 89 

00340 ; 
1E16 07 00350 MSG5 DB 
IB 0C 2C 05 89 
00360 ; 
1E1C 0D 00370 MSG6 DB 
09 0F 07 9B 

00380 ; 
1E21 0D 00390 MSG7 DB 
09 0E 07 9B 

00400 ; 
1E26 2A 00410 MSG8 DB 
0C F3 

00420 ; 
1E29 04 00430 MSG9 DB 
02 05 06 8A 

00440 ; 
1E2E 08 00450 MSG10 DB 
02 05 8A 

00460 ; 
1E32 0B 00470 MSG11 DB 
07 05 8A 

00480 ; 
1E36 04 00490 MSG12 DB 
02 05 8A 

00500 ; 
1E3A 07 00510 MSG13 DB 
IB 0C 2C 05 8A 
00520 ; 
1E40 0A 00530 MSG14 DB 



ORG 1E00H 

BEGIN 
Sentence table - Must be totally within one page 

1,2+80H 

no error 
4,2,5,6,9+80H 

parity error during header read 
8,2,5,9+80H 

seek error during read 
11,7,5,9+80H 

lost data during read 
4,2,5,9+80H 

parity error during read 
7,27,12,44,5,9+80H 

data record not found during read 
13,9,15,7,27+80H 

attempted to read system data record 
13,9,14,7,27+80H 

attempted to read locked/deleted data record 
42,12,51+0C0H 

device not available 
4,2,5,6,10+80H 

parity error during header write 
8,2,5,10+80H 

seek error during write 
11,7,5,10+80H 

lost data during write 
4,2,5,10+80H 

parity error during write 
7,27,12,44,5,10+80H 

data record not found during write 
10,21,18,19,48+80H 
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15 12 13 B0 

00540 ; 
1E45 0A 00550 MSG15 DB 

16 93 

00560 ; 
1E48 17 00570 MSG16 DB 
18 1A 99 

00580 ; 
1E4C 10 00590 MSG17 DB 
09 82 

00600 ; 
1E4F 10 00610 MSG18 DB 
0A 82 

00620 ; 
1E52 17 00630 MSG19 DB 
1A E9 



1E55 22 00650 MSG20 DB 
09 82 

00660 ; 
1E58 22 00670 MSG21 DB 
0A 82 

00680 ; 
1E5B 23 00690 MSG22 DB 

09 82 

00700 ; 
1E5E 23 00710 MSG23 DB 
0A 82 

00720 ; 
1E61 1A 00730 MSG24 DB 
0C 2D D0 

00740 ; 
1E65 1A 00750 MSG25 DB 
2E Fl 

00760 ; 
1E68 01 00770 MSG26 DB 

10 27 F3 

00780 ; 
1E6C 13 00790 MSG27 DB 
27 AF 

00800 ; 
1E6F 1C 00810 MSG28 DB 
ID 1A A0 

00820 ; 
1E73 IB 00830 MSG29 DB 
19 IE ID 9F 

00840 ; 
1E78 10 00850 MSG30 DB 
2F 34 9A 



1E7C 32 00870 MSG31 DB 
0C EC 



1E7F 17 00890 MSG32 DB 
30 D9 

00900 ; 
1E82 01 00910 MSG33 DB 
2A 27 F3 

00920 ; 
1E86 26 00930 MSG34 DB 
1A 2B 82 



SYS4 - LS-DOS 6.2 Page 00002 

write fault on disk drive 
10,22 S 19+80H 

write protected disk 
23,24 S 26,25+80H 

illegal logical file number 
16,9,2+80H 

directory read error 
16,10,2+80H 

directory write error 
23,26,41+0C0H 

illegal fi le name 
34,9,2+80H 

gat read error 
34,10,2+80H 

gat write error 
35,9,2+80H 

hit read error 
35 S 10 S 2+80H 

hit write error 
26,12, 45, 16+0C0H 

file not in directory 
26,46,49+0C0H 

file access denied 
1,16,39,51+0C0H 

directory space ful 1 
19,39,47+80H 

disk space full 
28,29,26,32+80H 

end of file encountered 
27,25,30,29,31+80H 

record number out of range 
16,47,52,26+80H 

directory full - can't extend file 
50,12,44+0C0H 

program not found 
23,48,25+0C0H 

illegal drive number 
1,42,39,51+0C0H 

no device space available 
38,26,43,2+80H 
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les 


SYS4 - LS-DOS 


6.2 Page 00003 




00940 ; 




load file format error 


1E8A 11 
95 


00950 MSG35 


DB 


17,21+80H 




00960 ; 




memory fault 




1E8C 0D 


00970 MSG36 


DB 


13,38,9,40,17+80H 


26 09 28 


91 










00980 ; 




attempted to load read only memory 


1E91 17 


00990 MSG37 


DB 


23,46,13,22,26+80H 


2E 0D 16 


9A 










01000 ; 




illegal access 


attempted to protected file 


1E96 1A 


01010 MSG38 


DB 


26,12,53+0C0H 




0C F5 


01020 ; 




file not open 




1E99 2A 


01030 MSG39 


DB 


42,45,54+80H 




2D B6 


01040 ; 




device in use 




1E9C 16 


01050 MSG40 


DB 


22,15, 42+80H 




0F AA 












01060 ; 




protected system device 


1E9F 1A 


01070 MSG41 


DB 


26,57,53!0C0H 




39 F5 












01080 ; 




file already open 


1EA2 18 


01090 MSG42 


DB 


24,27,58,53,21 


!0C0H 


IB 3A 35 


D5 










01100 ; 




logical record 


length open fault 


1EA7 38 


01110 MSG43 


DB 


56,20,2!80H 




14 82 












01120 ; 




SVC parameter 


error 


1EAA 14 
82 


01130 MSG44 


DB 


20,2!80H 




01140 ; 




Parameter error 


1EAC 25 


01150 MSG45 


DB 


37,2,33+80H 




02 Al 












01160 ; 




unknown error 


code 


1EAF E670 


01170 BEGIN 


AND 


70H 


; What's the entry? 


1EB1 C8 


01180 


RET 


Z 


;Back on zero 


1EB2 F5 


01190 


PUSH 


AF 




1EB3 3A0D00 


01200 


LD 


A,(LSVC$) 


;Grab the last SVC 


1EB6 325E20 


01210 


LD 


(SVSVC+1),A 


; and store for later 


1EB9 Fl 


01220 


POP 


AF 




1EBA 22461F 


01230 


LD 


(EXTEND+1),HL 


;Value if extended error 


1EBD E3 


01240 


EX 


(SP),HL 


;Grab return address 


1EBE 22BF1F 


01250 


LD 


(ERR7+1),HL 


; & stuff it 


1EC1 El 


01260 


POP 


HL 




1EC2 Fl 


01270 


POP 


AF 


;Pop off the error code 


1EC3 E3 


01280 


EX 


(SP),HL 


;Get user ret address 


1EC4 22241F 


01290 


LD 


(USRET+1),HL 


; for long dsply 


1EC7 E3 


01300 


EX 


(SP),HL 




1EC8 E5 


01310 


PUSH 


HL 


;Save regs 


1EC9 D5 


01320 


PUSH 


DE 




1ECA C5 


01330 


PUSH 


BC 




1ECB 2A0B00 


01340 


LD 


HL,(SVCRET$) 


;Grab last SVC return 


1ECE 227220 


01350 


LD 


(SVRET+1),HL 


; and save for dsply 


1ED1 47 


01360 


LD 


B,A 




1ED2 3A7C00 


01370 


LD 


A,(SFLAG$) 


;Test expanded-error 


1ED5 E640 


01380 


AND 


40H 


; flag bit in system flag 


1ED7 A8 


01390 


XOR 


B 




1ED8 A0 


01400 


AND 


B 




1ED9 47 


01410 


LD 


B,A 


;Xfer the result to B 


1EDA F5 


01420 


PUSH 


AF 


; & save for later 


1EDB E63F 


01430 


AND 


3FH 


;Strip al 1 but error # 
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1EDD 

1EDE 

1EE1 

1EE3 

1EE6 

1EE8 

1EEA 

1EED 

1EEF 

1EF1 

1EF2 

1EF4 

1EF5 

1EF7 

1EF9 

1EFB 

1EFC 

1EFF 

1F01 

1F03 

1F04 

1F05 

1F06 

1F08 

1F09 

1F0B 

1F0D 

1F0E 

1F10 

1F11 

1F12 

1F14 

1F15 

1F17 

1F18 

1F19 

1F1A 

1F1D 

1F20 

1F22 

1F23 

1F26 

1F29 

1F2B 

1F2C 

1F2D 

1F2F 

1F30 

1F31 

1F33 

1F35 

1F37 

1F38 

1F3A 

1F3B 

1F3D 

1F3E 

1F3F 

1F40 

1F42 



4F 

216C00 

CB76 

C2B91F 

CB7E 

2005 

11001D 

1806 

CBF0 

Fl 

CBF7 

F5 

CB70 

0600 

2044 

C5 

21C320 

0E11 

EDB0 

CI 

EB 

79 

362F 

34 

D60A 

30FB 

2C 

C63A 

77 

2C 

362C 

2C 

3620 

2C 

EB 

C5 

21D420 

010D00 

EDB0 

EB 

110000 

CDBD07 

3E27 

77 

23 

360A 

23 

CI 

CB71 

2009 

362A 

23 

362A 

23 

3620 

23 

EB 

79 

FE3F 

2023 



01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 ERR0 

01530 

01540 

01550 

01560 ERR0A 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 ERR1 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 USRET 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 ERR6 

02010 ERR2 

02020 

02030 

02040 ; 



LD 

LD 

BIT 

JP 

BIT 

JR 

LD 

JR 

SET 

POP 

SET 

PUSH 

BIT 

LD 

JR 

PUSH 

LD 

LD 

LDIR 

POP 

EX 

LD 

LD 

INC 

SUB 

JR 

INC 

ADD 

LD 

INC 

LD 

INC 

LD 

INC 

EX 

PUSH 

LD 

LD 

LDIR 

EX 

LD 

CALL 

LD 

LD 

INC 

LD 

INC 

POP 

BIT 

JR 

LD 

INC 

LD 

INC 

LD 

INC 

EX 

LD 

CP 

JR 



C,A 

HL,CFLAG$ 

6,(HL) 

NZ,ERR6A 

7,(HL) 

NZ,ERR0 

DE,SBUFF$ 

ERR0A 

6,B 

AF 

6, A 

AF 

6,B 

B,0 

NZ,ERR2 

BC 

HL,ERRMSG 

C,MLEN 

BC 

DE,HL 

A,C 

(HL),2FH 

(HL) 

10 

NC,ERR1 

L 

A,3AH 

(HL),A 

L 

(HL),', 1 

L 

(HL),' ' 

L 

DE,HL 

BC 

HL,ERRMSG1 

BC,M1LEN 

DE,HL 

DE,$-$ 

@HEX16 

A,27H 

(HL),A 

HL 

(HL),LF 

HL 

BC 

6,C 

NZ,ERR6 

(HL),'*' 

HL 

(HL),'*' 

HL 

(HL),' ' 

HL 

DE,HL 

A,C 

63 

NZ,ERR2A 



Place error code -> C 
If system error suppress 
flag is set, don't 
display error message. 
If error-to-buffer is 
set, put to user buf 

;Branch around force 
;Force buffer to abbrev 



;Expanded error display? 

;Jump if abbreviated 

;Pt to "< ERRCOD =... 
; & move to buffer 

; Buffer ptr to HL 
;Error code to A 
;Init for digit conv 
;Bump ASCII digit 
; count by 10 
;Keep bumping 10' s digit 
;Bump buffer ptr 
;Convert rmndr to unit's 
; & place in buffer 
;Bump to next pos 
; Stuff a comma & bump 

; & a space 

; Buffer ptr back to DE 

;"Returns to X'" 



;HL back to buffer 
;User ret address 



;End the line 



;Extended error? 

;Go if not 

;Make long msg look nice 



;DE back to nxt buff line 
;"Extended error"? 
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1F44 D5 
1F45 110000 
1F48 21BD20 
1F4B CDBD07 
1F4E 21A320 
1F51 Dl 
1F52 E5 
1F53 C5 
1F54 012000 
1F57 EDB0 
1F59 CI 
1F5A 216C00 
1F5D CB7E 
1F5F CBBE 
1F61 El 
1F62 CC0005 
1F65 1852 



1F67 3E2D 

1F69 B9 

1F6A D5 

1F6B 3001 

1F6D 4F 

1F6E 217821 

1F71 09 

1F72 6E 

1F73 261E 



1F75 7E 
1F76 E63F 
1F78 47 
1F79 E5 
1F7A 21A621 
1F7D 7E 
1F7E 07 
1F7F 23 
1F80 30FB 
1F82 05 
1F83 20F8 



1F85 
1F86 
1F87 
1F89 
1F8A 
1F8B 
1F8C 
1F8E 
1F90 
1F91 
1F92 
1F93 
1F94 



7E 

07 

CB3F 

12 

23 

13 

30F7 

3E20 

12 

13 

El 

7E 

23 



02050 ; 

02060 ; 

02070 

02080 EXTEND 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 ; 

02250 ; 

02260 ; 

02270 ERR2A 

02280 

02290 

02300 

02310 

02320 ERR3 

02330 

02340 

02350 

02360 ; 

02370 ; 

02380 ; 

02390 ERR5 

02400 

02410 

02420 

02430 

02440 LP1 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 LP2 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 



Do extended error only 

PUSH DE 

LD DE,$-$ 

LD HL,EXT$ERR+26 

CALL 0HEX16 

LD HL,EXT$ERR 

POP DE 

PUSH HL 

PUSH BC 

LD BC 9 M2LEN 

LDIR 

POP BC 

LD HL,CFLAG$ 

BIT 7,(HL) 

RES 7,(HL) 

POP HL 

CALL Z s @LOGOT 

JR ERR6A 



;Save buffer ptr 

:Ext. error value fm HL 



;Point to error msg 
;Recvr buffer 
;Save msg start 

;Len of error 
;Move into buffer 

;See if to user buffer 

;Don't logot if so 

: and exit 



Do regular (non-extended) error 



LD 

CP 

PUSH 

JR 

LD 

LD 

ADD 

LD 

LD 



c 

DE 

NC.ERR3 

C A 

HL.CODTAB 

HL,BC 

L S (HL) 

H,MSG0<-8 



;If error code is > 43, 
; then set to 44 (max) 
;Save ptr to 1st char 



Pt to start of code 

address table & index 
P/u lo-order vector 
Set hi -order vector 



HL now points to sentence table 



LD 

AND 

LD 

PUSH 

LD 

LD 

RLCA 

INC 

JR 

DEC 

JR 



A S (HL) 

3FH 

B,A 

HL 

HL s W0RDS 

A,(HL) 

HL 

NC.LP1 
B 
NZ,LP1 



P/u word offset 
& strip any flags 

Xfer word # to reg B 

Save sentence pointer 

Dictionary start 

Scan through the table 
counting words (bit 7 
denotes word end) 
until requested word 
is reached 



Found the start of the desired word 



LD 

RLCA 

SRL 

LD 

INC 

INC 

JR 

LD 

LD 

INC 

POP 

LD 

INC 



A,(HL) 

A 

(DE),A 

HL 

DE 

NC,LP2 

A ' ' 

(DE),A 

DE 

HL 

A,(HL) 

HL 



Transfer the word until 
bit 7 set (last char) 
while resetting bit-7 

Stuff letter of word 
& bump pointers 



;Move a space into buffer 



;Rcvr ptr to sentence 
;P/u this word byte 
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1F95 07 
1F96 30DD 
1F98 E3 
1F99 7E 
1F9A CBAF 
1F9C 77 
1F9D El 
1F9E Fl 
1F9F F5 
1FA0 E5 
1FA1 3E0D 
1FA3 12 
1FA4 216C00 
1FA7 CB7E 
1FA9 CBBE 
1FAB 21001D 
1FAE CC0005 
1FB1 El 
1FB2 Fl 
1FB3 F5 
1FB4 CB77 
1FB6 CCC41F 
1FB9 Fl 
1FBA CI 
1FBB Dl 
1FBC El 
1FBD B7 
1FBE FA0000 
1FC1 C3081B 



1FC4 DDE5 
1FC6 DD2A2400 
1FCA 2B 
1FCB CB76 
1FCD 2030 
1FCF DD4E06 
1FD2 DD4607 
1FD5 DDCB007E 
1FD9 205D 
1FDB 212821 
1FDE 79 
1FDF FE41 
1FE1 3815 
1FE3 FE5B 
1FE5 3011 
1FE7 78 
1FE8 FE30 
1FEA 380C 
1FEC FE5B 
1FEE 3008 
1FF0 ED433A21 
1FF2 

1FF4 DDE1 
1FF6 185F 

1FF8 213D21 
1FFB DDE1 
1FFD 1858 



02660 RLCA 

02670 JR 

02680 EX 

02690 LD 

02700 RES 

02710 LD 

02720 POP 

02730 POP 

02740 PUSH 

02750 PUSH 

02760 LD 

02770 LD 

02780 LD 

02790 BIT 

02800 RES 

02810 LD 

02820 CALL 

02830 POP 

02840 POP 

02850 PUSH 

02860 BIT 

02870 CALL 

02880 ERR6A POP 

02890 POP 

02900 POP 

02910 POP 

02920 OR 

02930 ERR7 JP 

02940. JP 

02950 ; 

02960 ; 

02970 ; 

02980 DSPSPEC PUSH 

02990 LD 

03000 DEC 

03010 BIT 

03020 JR 

03030 LD 

03040 LD 

03050 BIT 

03060 JR 

03070 LD 

03080 DSPC1 LD 

03090 CP 

03100 JR 

03110 CP 

03120 JR 

03130 LD 

03140 CP 

03150 JR 

03160 CP 

03170 JR 

03180 LD 

03190 DSPC1A EQU 

03200 POP 

03210 JR 

03220 ; 

03230 DCBUNK LD 

03240 POP 

03250 JR 

03260 ; 



NC.ERR5 

(SP),HL 

A S (HL) 

5, A 

(HL),A 

HL 

AF 

AF 

HL 

A,CR 

(DE),A 

HL,CFLAG$ 

7,(HL) 

7,(HL) 

HL,SBUFF$ 

Z,@LOGOT 

HL 

AF 

AF 

6, A 

Z, DSPSPEC 

AF 

BC 

DE 

HL 

A 

M,0 

@ABORT 



;Was this the last word? 
;Loop if still more to go 
;Get ptr to 1st char 

;Set it to UC 

;Get back sentence ptr 
;Rcvr error code 

;Save sentence ptr 

; Stuff end-of-line 
;If to user buffer, 
; then don't LOGOT 

;Display the line 



;Rcvr word index 

;Test if a disk error 
;Get f i lespec if it is 



Ret to user if bit 7 
of error code is set 
else abort 



Routine to display the filespec 

;P/u FCB vector 



IX 

IX,(JDCB$) 

HL 

6,(HL) 

NZ,DSPC2 

C,(IX+6) 

B,(IX+7) 

7,(IX+0) 

NZ S RCVSPEC 

HL,OPN$DCB 

A,C 

'A' 

C, DCBUNK 

'Z'+l 

NC, DCBUNK 

A,B 

'0' 

C, DCBUNK 

'Z'+l 

NC, DCBUNK 

(0PN$DCB+18),BC ;Stuff the device name 

$-2 

IX 

RSPC6 ;Go display it 

HL,UNK$TYP 

IX 

RSPC6 



;Device 1st char or drive 
;Device 2nd char or DEC 
;Test if f i le or device 
;Jump if it is a file 

;Possible devspec, 1st char 

;C=do unknown 

;Again, go if bad 
;Check 2nd character 
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1FFF DD4E01 


03270 DSPC2 


LD 


C,(IX+1) 


;P/u 1st char or vector 


2002 DD4602 


03280 


LD 


B,(IX+2) 


;P/u 2nd char or vector 


2005 DD7E00 


03290 


LD 


A,(IX+0) 




2008 21EB20 


03300 


LD 


HL,DEV$NAM 




200B 22F21F 


03310 


LD 


(DSPC1A),HL 


;Change dsply message 


200E 21E120 


03320 


LD 


HL,DEV$EQ 




2011 FE2A 


03330 


CP 


• *■ 


;If '*' , go to device 


2013 28C9 


03340 


JR 


Z,DSPC1 




2015 DDE5 


03350 


PUSH 


IX 


; else assume file 


2017 El 


03360 


POP 


HL 




2018 11F520 


03370 


LD 


DE s FILE$EQ+7 


;Init "<file=... 


201B 0618 


03380 


LD 


B,24 


;Max fi lespec 


201D 7E 


03390 DSPC3 


LD 


A,(HL) 


;P/u file spec char 


201E FE03 


03400 


CP 


3 


;ETX? 


2020 2811 


03410 


JR 


Z.DSPC3A 




2022 FE0D 


03420 


CP 


CR 


;EOL? 


2024 280D 


03430 


JR 


Z,DSPC3A 




2026 B7 


03440 


OR 


A 




2027 280A 


03450 


JR 


Z,DSPC3A 


;Zero ok terminator, too 


2029 CD8320 


03460 


CALL 


CHKASC 


;Check if an ASCII char 


202C 38CA 


03470 


JR 


CDCBUNK 


; and abort if not 


202E 12 


03480 


LD 


(DE),A 




202F 13 


03490 


INC 


DE 




2030 23 


03500 


INC 


HL 




2031 10EA 


03510 


DJNZ 


DSPC3 


;Loop until end 


2033 21EE20 


03520 DSPC3A 


LD 


HL,FILE$EQ 




2036 181A 


03530 
03540 ; 


JR 


RSPC5 






03550 ; 


Routine to get recover the filespec 




03560 ; 








2038 79 


03570 RCVSPEC 


LD 


A,C 




2039 C630 


03580 


ADD 


A,30H 


Conv drive # to decimal 


203B FE30 


03590 


CP 


'0' 


.Valid drive? 


203D 38B9 


03600 


JR 


CDCBUNK 




203F FE38 


03610 


CP 


'8' 




2041 30B5 


03620 


JR 


NC.DCBUNK 




2043 321D21 


03630 


LD 


(0PN$FCB+16),A 




2046 78 


03640 


LD 


A,B 


,Dec into A 


2047 212421 


03650 


LD 


HL,0PN$FCB+23 


,Pt into msg string 


204A CDC207 


03660 


CALL 


@HEX8 


and convert it. 


204D EB 


03670 


EX 


DE,HL 


DE back to buff end 


204E 210D21 


03680 


LD 


HL,OPN$FCB 




2051 13 


03690 


INC 


DE 




2052 3E0D 


03700 RSPC5 


LD 


A,CR 


.Close with EOL 


2054 12 


03710 


LD 


(DE),A 




2055 DDE1 


03720 


POP 


IX 




2057 CD0005 


03730 RSPC6 
03740 ; 


CALL 


0LOGOT 


.Log it 




03750 ; 


Build 


the SVC info line 






03760 ; 








205A 117221 


03770 


LD 


DE,LILBUF 


Tempy for hexdec 


205D 3E00 


03780 SVSVC 


LD 


A,$-$ 


,P/u the stored last svc 


205F 6F 


03790 


LD 


L,A 




2060 2600 


03800 


LD 


H,0 


into HL for conv 


2062 CDF606 


03810 


CALL 


0HEXDEC 




2065 115821 


03820 


LD 


DE,SVC$NUM+11 




2068 CD9420 


03830 


CALL 


EDEC 




206B 3E03 


03840 


LD 


A,3 


.Then put in ETX 


206D 12 


03850 
03860 ; 


LD 


(DE),A 




206E 216C21 


03870 


LD 


HL,SVC$RET+16 , 


Now, do last svc return 
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2071 110000 
2074 CDBD07 
2077 214D21 
207A CD0005 
207D 215C21 
2080 C30005 



2083 7E 

2084 FE2E 

2086 D8 

2087 FE3B 

2089 3002 
208B 1805 
208D FE41 
208F D8 

2090 FE5B 

2092 3F 

2093 C9 

2094 217221 

2097 7E 

2098 B7 

2099 C8 
209A FE20 
209C 23 
209D 28F8 
209F 12 
20A0 13 
20A1 18F4 



20A3 2A 
2A 
65 
2C 
27 

0020 

20C3 0A 
2A 
20 

0011 

20D4 52 
65 
6F 

000D 

20E1 44 
65 
2A 

20EB 58 
58 

20EE 46 
69 
4E 
45 
50 

210D 4F 
70 
20 



20 45 
64 20 
20 48 
78 78 



2A 20 
63 6F 



74 75 
20 58 



76 69 



0D 

6C 65 
4E 4E 
45 2E 
50 50 

65 6E 
44 72 



03880 

03890 

03900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 

04010 

04020 

04030 

04040 

04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 

04130 

04140 

04150 

04160 

04170 

04180 

04190 

04200 

04210 

04220 

78 74 

65 72 

4C 20 

78 78 

04230 

04240 

45 72 

64 65 

04250 

04260 

72 6E 

27 

04270 

04280 

63 65 



SVRET 



LD 

CALL 

LD 

CALL 

LD 

JP 



DE 5 $-$ 

0HEX16 

HL,SVC$NUM 

@LOGOT 

HL,SVC$RET 

(3L0G0T 



CHKASC 



CKASC1 
CKASC2 



EDEC 
EDI 



LD 

CP 

RET 

CP 

JR 

JR 

CP 

RET 

CP 

CCF 

RET 

LD 

LD 

OR 

RET 

CP 

INC 

JR 

LD 

INC 

JR 



EXT$ERR DB 
65 6E 64 
72 6F 72 
3D 20 58 
27 0D 

M2LEN EQU 
ERRMSG DB 

72 6F 72 
20 3D 20 
MLEN EQU 
ERRMSG1 DB 

73 20 74 

M1LEN EQU 
DEV$EQ DB 
20 3D 20 



;Log it 

Routine to check for valid chars 

A,(HL) ;Xfer until 1st space 
i i 

C ;CF on ret = bad char 



04290 DEV$NAM DB 

04300 FILE$EQ DB 
20 3D 20 4E 4E 
4E 4E 4E 2F 45 
50 50 50 50 50 
3A 44 0D 
04310 OPN$FCB DB 
20 46 43 42 2C 
69 76 65 3D 6E 



':'+l 

NC.CKASC1 

CKASC2 

'A' 

C 

•Z'+l 



HL.LILBUF 

A,(HL) 

A 

Z 
i i 

HL 

Z,ED1 

(DE),A 

DE 

EDI 



;Pt to conved decimal num. 



; Store valid digit 



'** Extended error, HL = X* ,27H, 'xxxx' ,27H,CR 



$-EXT$ERR 

LF, '** Error code = ' 



$-ERRMSG 

'Returns to X»,27H 



$-ERRMSGl 
'Device = *' 



'XX', CR 

'File = NNNNNNNN/EEE.PPPPPPPP:D',CR 

'Open FCB, Drive=n, DEC= ' ,CR 
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2C 20 44 45 43 3D 20 20 




20 0D 












2128 4F 






04320 OPN$DCB DB 


'Open DCB S Device=*xx' ,CR 


70 65 6E 


20 44 43 


42 


2C 




20 44 65 


76 69 63 


65 


3D 




2A 78 78 0D 








213D 55 






04330 UNK$TYP DB 


'Unknown FCB/DCB',CR 


6E 


6B 


6E 


6F 77 6E 


20 46 




43 


42 


2F 


44 43 42 


0D 






214D 4C 






04340 SVC$NUM DB 


'Last SVC = nnn' s 3 


61 


73 


74 20 53 56 


43 20 




3D 20 6E 6E 6E 03 








215C 2C 






04350 SVC$RET DB 


\ Returned to X' ,27H, 'xxxx' ,27H,CR 


20 52 65 


74 75 72 


6E 


65 




64 20 74 6F 20 58 


27 


78 




78 78 78 27 0D 














04360 ; 








0005 






04370 LILBUF 


DS 


5 


2177 00 






04380 
04390 ; 
04400 ; 
04410 ; 




DB 
Table 



» points to low-order bytes of messages 


2178 03 






04420 CODTAB 


DB 


MSG0&0FFH,MSG1&0FFH,MSG2&0FFH,MSG3&0FFH 


05 


0A 0E 










217C 12 






04430 




DB 


MSG4&0FFH S MSG5&0FFH,MSG6&0FFH 


16 


1C 












217F 21 






04440 




DB 


MSG7&0FFH,MSG8&0FFH,MSG9&0FFH 


26 


29 












2182 2E 






04450 




DB 


MSG10&0FFH,MSG11&0FFH,MSG12&0FFH,MSG13&0FFH 


32 


36 


3A 










2186 40 






04460 




DB 


MSG14&0FFH,MSG15&0FFH,MSG16&0FFH,MSG17&0FFH 


45 


48 


4C 










218A 4F 






04470 




DB 


MSG18&0FFH S MSG19&0FFH,MSG20&0FFH S MSG21&0FFH 


52 


55 


58 










218E 5B 






04480 




DB 


MSG22&0FFH,MSG23&0FFH,MSG24&0FFH,MSG25&0FFH 


5E 


61 


65 










2192 68 






04490 




DB 


MSG26&0FFH,MSG27&0FFH,MSG28&0FFH S MSG29&0FFH 


6C 


6F 


73 










2196 78 






04500 




DB 


MSG30&0FFH,MSG31MFFH,MSG32&0FFH,MSG33&0FFH 


7C 


7F 


82 










21 9A 86 






04510 




DB 


MSG34&0FFH,MSG35&0FFH,MSG36&0FFH,MSG37&0FFH 


8A 


8C 


91 










219E 96 






04520 




DB 


MSG38&0FFH S MSG39&0FFH,MSG40&0FFH,MSG41&0FFH 


99 


9C 


9F 










21A2 A2 






04530 




DB 


MSG42&0FFH,MSG43&0FFH,MSG44&0FFH,MSG45&0FFH 


A7 


AA AC 
















04540 ; 














04550 ; 




Word 


dictionary 








04560 ; 








21A6 D2 






04570 WORDS 


DB 


'R'!80H ;Start table with bit 7 


21A7 6E 

EF 

21A9 65 






04580 




DB 


'nVo'!80H ;1 






04590 




DB 


'erro , ,'r'!80H ;2 


72 


72 


6F 


F2 








21AE EF 






04600 




DB 


'o' !80H ;3 extra word 


21AF 70 






04610 




DB 


'parit','y'!80H ;4 


61 


72 


69 


74 F9 








21B5 64 






04620 




DB 


'durin','g'!80H ;5 


75 


72 


69 


6E E7 








21BB 68 






04630 




DB 


•heade', , r'!80H ;6 


65 


61 


64 


65 F2 









Page 196 



The Sour 


ce 




SYSTEN 


1 Fi 


les SYS4 - LS-DOS 6.2 




21C1 64 






04640 






DB 


datVa'!80H 


;7 


61 


74 


El 














21C5 73 






04650 






DB 


seeVk'!80H 


;8 


65 


65 


EB 














21C9 72 






04660 






DB 


rea','d , !80H 


;9 


65 


61 


E4 














21CD 77 






04670 






DB 


writ'.'e' !80H 


;10 


72 


69 


74 


E5 












21D2 6C 






04680 






DB 


losVt'!80H 


;ii 


6F 


73 


F4 














21D6 6E 






04690 






DB 


noVt'!80H 


;12 


6F 


F4 
















21D9 61 






04700 






db' 


attempted t'.'o' !80H 


;13 


74 


74 


65 


6D 70 74 65 


64 






20 74 EF 














21E5 6C 






04710 






DB 


locked/deleteVd'!80H 


;14 


6F 


63 


6B 


65 64 


2F 


64 


65 






6C 


65 


74 


65 E4 












21F3 73 






04720 






DB 


syste' , 'm' !80H 


;15 


79 


73 


74 


65 ED 












21F9 64 






04730 






DB 


director 1 , 'y' !80H 


;16 


69 


72 


65 


63 74 


6F 


72 


F9 






2202 6D 






04740 






DB 


memor' , 'y' !80H 


;17 


65 


6D 


6F 


72 F9 












2208 6F 






04750 






DB 


oVn'!80H 


;18 


EE 


















220A 64 






04760 






DB 


disVk'!80H 


;19 


69 


73 


EB 














220E 70 






04770 






DB 


paramete' , 'r' !80H 


;20 


61 


72 


61 


6D 65 


74 


65 


F2 






2217 66 






04780 






DB 


faulVt'!80H 


;2l 


61 


75 


6C 


F4 












221C 70 






04790 






DB 


protecte\'d' !80H 


;22 


72 


6F 


74 


65 63 


74 


65 


E4 






2225 69 






04800 






DB 


illegaVT!80H 


;23 


6C 


6C 


65 


67 61 


EC 










222C 6C 






04810 






DB 


logica , ,'l'!80H 


;24 


6F 


67 


69 


63 61 


EC 










2233 6E 






04820 






DB 


numbeVr' !80H 


;25 


75 


6D 


62 


65 F2 












2239 66 






04830 






DB 


fil' s 'e'!80H 


;26 


69 


6C 


E5 














223D 72 






04840 






DB 


recor' , 'd' !80H 


;27 


65 


63 


6F 


72 E4 












2243 65 






04850 






DB 


en','d'!80H 


;28 


6E 


E4 
















2246 6F 






04860 






DB 


0','f' !80H 


;29 


E6 


















2248 6F 






04870 






DB 


ou','t , !80H 


;30 


75 


F4 
















224B 72 






04880 






DB 


rangVe'!80H 


;3i 


61 


6E 


67 


E5 












2250 65 






04890 






DB 


encountere' , 'd' !80H 


;32 


6E 


63 


6F 


75 6E 


74 


65 


72 






65 


E4 
















225B 63 






04900 






DB 


codVe'!80H 


;33 


6F 


64 


E5 














225F 47 






04910 






DB 


, GA','T , !80H 


;34 


41 


D4 
















2262 48 






04920 






DB 


, Hr,'T'!80H 


;35 


49 


D4 
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2265 F9 






04930 




DB 


'y»!80H 


;36 


2266 75 






04940 




DB 


'unknow' , 'n' !80H 


;37 


6E 


6B 


6E 


6F 77 


EE 








226D 6C 






04950 




DB 


, loa , , , d'!80H 


;38 


6F 


61 


E4 












2271 73 






04960 




DB 


, spac' s 'e , !80H 


;39 


70 61 


63 


E5 










2276 6F 






04970 




DB 


, onl','y , !80H 


;40 


6E 


6C 


F9 












227A 6E 






04980 




DB 


, nam , , , e'!80H 


;4i 


61 


6D 


E5 












227E 64 






04990 




DB 


'devicVe'!80H 


;42 


65 


76 


69 


63 E5 










2284 66 






05000 




DB 


, forma','t , !80H 


;43 


6F 


72 


6D 


61 F4 










228A 66 






05010 




DB 


'foun', , d , !80H 


;44 


6F 


75 


6E 


E4 










228F 69 






05020 




DB 


*iVn'!80H 


;45 


EE 
















2291 61 






05030 




DB 


'accesVs'!80H 


;46 


63 


63 


65 


73 F3 










2297 66 






05040 




DB 


'fuT s 'T!80H 


;47 


75 


6C 


EC 












229B 64 






05050 




DB 


'drivVe'!80H 


;48 


72 


69 


76 


E5 










22A0 64 






05060 




DB 


, denie , s 'd'!80H 


;49 


65 


6E 


69 


65 E4 










22A6 70 






05070 




DB 


'progra' ,'m' !80H 


;50 


72 


6F 


67 


72 61 


ED 








22AD 61 






05080 




DB 


, availabT,'e , !80H 


;5i 


76 


61 


69 6C 61 


62 6C 


E5 






22B6 2D 






05090 




DB 


'- can' 't exten' , 'd' 


!80H ;52 


20 63 61 6E 27 


74 20 65 






78 


74 


65 


6E E4 










22C4 6F 






05100 




DB 


, ope , ,'n'!80H 


;53 


70 65 


EE 












22C8 75 






05110 




DB 


, us , ,'e'!80H 


;54 


73 


E5 














22CB 6F 






05120 




DB 


, o', , r'!80H 


;55 


F2 
















22CD 53 






05130 




DB 


'SVVCI80H 


;56 


56 


C3 














22D0 61 






05140 




DB 


'alreadVy'!80H 


;57 


6C 


72 


65 


61 64 


F9 








22D7 6C 






05150 




DB 


, lengt','h , !80H 


;58 


65 


6E 


67 


74 E8 










22DD 






05160 LAST 


EQU 


$ 










05170 




IFGT 


$,DIRBUF$ 










05180 




ERR 


'Module too big' 










05190 




ENDIF 






23FE 






05200 




ORG 


MAXC0R$-2 




23FE DD04 




05210 




DW 


LAST-SYS4 ;Overlay length 








05220 


» 








1E00 






05230 




END 


SYS4 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 (3(91 


0000 


®@2 


0000 @@3 


0000 @@4 


0000 


0ABORT 


1B08 0ADTSK 


1CDA @BANK 


0877 


0BKSP 


1486 0BREAK 


196F @BYTEIO 


1300 


0CHNIO 


0689 0CKBRKC 


0553 GCKDRV 


1993 


0CKEOF 


158F 0CKTSK 


1CF5 @CLOSE 


1999 


@CLS 


0545 0CMNDI 


197E @CMNDR 


197B 


@CTL 


0623 (3DATE 


07A8 0DBGHK 


199F 


@DCINIT 


19C0 0DCRES 


19C4 GDCSTAT 


19B5 


0DCTBYT 


1A2B 0DEBUG 


19A0 (3DECHEX 


03E1 


0DIRCYL 


18F7 GDIRRD 


18BB (PDIRWR 


1803 


@DIV16 


06E3 @DIV8 


1927 @DODIR 


19AF 


0DOKEY 


19A9 @DSP 


0642 (PDSPLY 


052D 


TERROR 


1B0F @EXIT 


1B0B 0FEXT 


1984 


0FLAGS 


196A 0FNAME 


199C 0FRENCH 


0000 


0FSPEC 


1981 0GATRD 


1874 @GATWR 


1875 


(^GERMAN 


0000 (PGET 


0638 @GTDCB 


1990 


0GTDCT 


1A1E @GTMOD 


19B2 (3HDFMT 


19E4 


0HEX16 


07BD @HEX8 


07C2 0HEXDEC 


06F6 


@HIGH$ 


1948 @HITRD 


1897 @HITWR 


1898 


(3HZ50 


0000 0ICNFG 


0086 @INIT 


198D 


0INTL 


0000 @IPL 


1BF2 @JCL 


0630 


@KBD 


0635 (3KEY 


0628 0KEYIN 


0585 


0KITSK 


0089 0KLTSK 


1CD0 0LOAD 


1B38 


@LOC 


14B3 @LOF 


14DE 0LOGER 


0503 


0LOGOT 


0500 (3MOD2 


0000 @M0D4 


FFFF 


@MSG 


0530 @MUL16 


06C9 @MUL8 


190A 


@NMI 


0066 0OPEN 


198A (POPREG 


0084 


0PARAM 


1987 @ PAUSE 


0382 @PEOF 


14A2 


0POSN 


1434 (PPRINT 


0528 (3PRT 


063D 


@PUT 


0645 0RAMDIR 


19AC 0RDHDR 


19D8 


0RDSEC 


19F4 (3RDSSC 


18D8 @RDTRK 


19E0 


@READ 


1513 ^REMOVE 


19A6 (3RENAME 


1996 


GREW 


149B 0RMTSK 


1CD7 GWPTSK 


1CEB 


(9RREAD 


1473 0RSLCT 


19D4 0RST00 


0000 


(3RST08 


0008 (9RST10 


0010 0RST18 


0018 


(3RST20 


0020 @RST28 


0028 (PRST30 


0030 


(9RST38 


0038 0RSTNMI 


0FE9 0RSTOR 


19C8 


0RSTREG 


0680 @RUN 


IBID 0RWRIT 


13AD 


0SEEK 


19D0 @SEEKSC 


1421 @SKIP 


1430 


0SLCT 


19BC (9SOUND 


0392 @STEPI 


19CC 


0TIME 


078D @USA 


FFFF @VDCTL 


0B99 


(9VDCTL3 


0D38 @VER 


1560 0VRSEC 


19DC 


0WEOF 


14EC 0WHERE 


1979 MITE 


1531 


0WRSEC 


19E8 0WRSSC 


19EC 0WRTRK 


19F0 


VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AUTO? 


1FF1 BAR$ 


0201 BEGIN 


1EAF 


BOOTST$ 


439D BREAK? 


1C60 BRKVECS 


1C88 


BUR$ 


0200 CASHK$ 


0A7B CFCB$ 


00E0 


CFGFCB$ 


00E0 CFLAG$ 


006C CHKASC 


2083 


CKASC1 


208D CKASC2 


2092 CKMOD@ 


1A7F 


CKOPEN0 


1568 CODTAB 


2178 CONFIGS 


203F 


CORES 


0300 CR 


000D CRTBGN$ 


F800 


CYL GRN 


16AE D0FBYT8 


1A26 DATES 


0033 


DAYTBL$ 


04C7 DBGSV$ 


00A0 DCBKL$ 


0031 


DC BUNK 


1FF8 DCT$ 


0470 DCTBYT80 


1A29 


DCTFLD0 


1A34 DEVSEQ 


20E1 DEV$NAM 


20EB 


DFLAG$ 


006D DIRBUF$ 


2300 DIS DO RAM 


0846 


DODATA$ 


0B94 DODCB$ 


0210 DO CONTROL 


0C44 
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DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DSKTYP$ 


04C0 DSPC1 


1FDE DSPC1A 


1FF2 


DSPC2 


1FFF DSPC3 


201D DSPC3A 


2033 


DSPSPEC 


1FC4 DTPMT$ 


04C2 DVRENDS 


0FF4 


DVRHI$ 


0206 EDI 


2097 EDEC 


2094 


EFLAG$ 


006E ENADIS DO RAM 


0817 ERR0 


1EEF 


ERR0A 


1EF5 ERR1 


1F08 ERR2 


1F3F 


ERR2A 


1F67 ERR3 


1F6E ERR5 


1F75 


ERR6 


1F3E ERR6A 


1FB9 ERR7 


1FBE 


ERRMSG 


20C3 ERRMSG1 


20D4 EXTSERR 


20A3 


EXTDBGS 


19A4 EXTEND 


1F45 FDDINTS 


000E 


FEMSKS 


006F FILE$EQ 


20EE FLGTAB$ 


006A 


GET (3 ROWCOL 


0DAE HERTZ$ 


0750 HIGHS 


040E 


HKRESl 


1A6C IFLAG$ 


0072 INBUFS 


0420 


INTIM$ 


003C INTMSKS 


003D INTVCS 


003E 


JCLCB$ 


0203 JDCB$ 


0024 JFCBS 


00C0 


JLDCBS 


0230 JRET$ 


0026 KCK@ 


07D6 


KFLAG$ 


0074 KIDATAS 


08FC KIDCBS 


0208 


LAST 


22DD LBANK$ 


0202 LDRVS 


0023 


LF 


000A LFLAG$ 


0075 LILBUF 


2172 


LNKFCB0 


1566 LOWS 


001E LP1 


1F7D 


LP2 


1F85 LSVC$ 


000D M1LEN 


000D 


M2LEN 


0020 MAXCORS 


2400 MAXDAYS 


0401 


MINCOR$ 


3000 MLEN 


0011 MODOUTS 


0076 


MONTBLS 


04DC MSG0 


1E03 MSG1 


1E05 


MSG10 


1E2E MSG11 


1E32 MSG12 


1E36 


MSG13 


1E3A MSG14 


1E40 MSG15 


1E45 


MSG16 


1E48 MSG17 


1E4C MSG18 


1E4F 


MSG19 


1E52 MSG2 


1E0A MSG20 


1E55 


MSG21 


1E58 MSG22 


1E5B MSG23 


1E5E 


MSG24 


1E61 MSG25 


1E65 MSG26 


1E68 


MSG27 


1E6C MSG28 


1E6F MSG29 


1E73 


MSG3 


1E0E MSG30 


1E78 MSG31 


1E7C 


MSG32 


1E7F MSG33 


1E82 MSG34 


1E86 


MSG35 


1E8A MSG36 


1E8C MSG37 


1E91 


MSG38 


1E96 MSG39 


1E99 MSG4 


1E12 


MSG40 


1E9C MSG41 


1E9F MSG42 


1EA2 


MSG43 


1EA7 MSG44 


1EAA MSG45 


1EAC 


MSG5 


1E16 MSG6 


1E1C MSG7 


1E21 


MSG8 


1E26 MSG9 


1E29 NFLAGS 


0077 


OPN$DCB 


2128 OPN$FCB 


210D OPREGS 


0078 


OPREG SV AREA 


086E OPREG SV PTR 


0835 ORARETG 


14DC 


OSRLSI 


003B OSVERl 


0085 OVRLYS 


0069 


PAKNAMS 


0410 PAUSED 


0382 PCSAVES 


07AF 


PDRV$ 


001B PHIGH$ 


001C PRDCBS 


0218 


PUTA0DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


RCVSPEC 


2038 RFLAGS 


007B ROWCOL 2 ADDR 


0DD0 


RSPC5 


2052 RSPC6 


2057 RST38G> 


1BFF 


RSTOR$ 


04C4 RWRIT0 


13A2 S1DCBS 


0238 


SBUFF$ 


1D00 SET0EXEC 


1A79 SET SCROLL 


0CF3 


SFCB$ 


008C SFLAG$ 


007C SIDCBS 


0220 


SODCB$ 


0228 SPACE4S 


2142 STACKS 


0380 


STARTS 


0000 SVC$NUM 


214D SVCSRET 


215C 


SVCRETS 


000B SVCTABS 


0100 SVRET 


2071 


SVSVC 


205D SYS4 


1E00 SYSERRS 


1B13 


TCB$ 


004E TFLAG$ 


007D TIMES 


002D 


TIMERS 


002C TIMSL$ 


002B TIMTSKS 


0713 


TMPMTS 


04C3 TRACE INT 


07B1 TYPHKS 


0A8F 


TYPTSKS 


0B26 UNKSTYP 


213D USRET 


1F23 



Page 200 



The Source SYSTEM Files SYS4 - LS-DOS 6.2 Page 00014 

USTOR$ 0013 VFLAG$ 007F WORDS 21A6 
WRINT$ 0080 ZEROS 0401 ZEROA0 13A0 

1E00 is the transfer address 
00000 Total errors 
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SYS5/SYS 

SYS5 is the primary system debugger. It is activated by the system, by the break key, 
or by the SVC @DEBUG. During assembly, SYS5 is cross referenced to produce an EQUate 
file used in assembling SYS9, the extended debugger. 
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0000 



00A0 



0001 
0001 
0001 
0002 
0001 
0002 
0002 
0002 
0002 
0002 
0008 
0002 
0002 
0001 
0001 
0002 

1E00 

1E00 E670 
1E02 C8 
1E03 Fl 
1E04 Fl 
1E05 F5 
1E06 FDE5 
1E08 DDE5 
1E0A 08 
1E0B D9 
1E0C E5 
1E0D D5 
1E0E C5 
1E0F F5 
1E10 08 
1E11 D9 
1E12 E5 
1E13 D5 
1E14 C5 
1E15 F5 
1E16 210000 
1E19 39 
1E1A 11A800 
1E1D 011800 
1E20 EDB0 
1E22 22BC00 



00100 
00110 
00120 
00140 
00150 
03010 
03020 
03030 
03040 
00160 
00170 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 



;SYS5/ASM - LS-DOS 6.2 

TITLE <SYS5 - LS-DOS 6.2> 

*LIST OFF ;Get SYS0/EQU 
*LIST ON 

*GET COPYCOM:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



COM 



<*(C) 1982,83,84 by LSI*>' 



*GET SYS5A:3 
;SYS5A/ASM - LS-DOS 6.2 



ORG 



0A0H 



HLREG 

IXREG 
IYREG 
SPREG 



SYS5 



References to save area in lowcore 



SAVONE DS 

SAVTWO DS 

DS 

NXTADR DS 

NXTBYT DS 

DSPADR DS 

AFREG DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 



REGSAV DS 
PCREG DS 



ORG 

AND 

RET 

POP 

POP 

PUSH 

PUSH 

PUSH 

EX 

EXX 

PUSH 

PUSH 

PUSH 

PUSH 

EX 

EXX 

PUSH 

PUSH 

PUSH 

PUSH 

LD 

ADD 

LD 

LD 

LDIR 

LD 



1 
1 
1 
2 
1 
2 
2 
2 
2 
2 
8 
2 
2 
1 
1 
2 

1E00H 

70H 

Z 

AF 

AF 

AF 

IY 

IX 

AF,AF' 

HL 
DE 
BC 
AF 
AF,AF« 

HL 

DE 

BC 

AF 

HL,0 

HL,SP 

DE, AFREG 

BC,24 

(SPREG), HL 



;Space for saved byte (1) 



AF Register save area 

BC 

DE 

HL 

AF', BC, DE', HL' 

IX 

IY 

SP 

;PC 



;If entry = 0, return 

;Discard return to SYS0 
;Get original reg-AF 

;Save remaining regs 



;Place SP address into HL 
;Move the 24 bytes saved 
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1E25 F9 

1E26 2ABE00 

1E29 2B 

1E2A 7E 

1E2B FEF7 

1E2D 2003 

1E2F 22BE00 



1E32 
1E35 
1E37 
1E38 
1E39 
1E3A 
1E3B 
1E3C 
1E3D 
1E3E 
1E3F 
1E40 
1E42 
1E43 
1E45 
1E47 
1E48 
1E49 
1E4A 
1E4C 
1E50 
1E53 
1E56 
1E58 
1E5A 
1E5B 
1E5E 
1E60 
1E63 
1E66 
1E67 
1E69 
1E6B 
1E6D 
1E6F 
1E71 
1E73 
1E75 
1E77 
1E79 
1E7B 
1E7D 
1E7F 
1E81 
1E84 



21A000 

0602 

AF 

5E 

77 

23 

56 

77 

23 

7B 

B2 

2807 

1A 

FEF7 

2002 

7E 

12 

23 

10EB 

ED7BBC00 

CDD51E 

210010 

0603 

3E0F 

EF 

CDC921 

FE67 

CA821F 

214C1E 

E5 

FE73 

2832 

FE3B 

2842 

FE2D 

2856 

FE6F 

2857 

FE63 

2806 

FE64 

282C 

FE69 

CA8B20 

FE61 



03550 

03560 

03570 

03580 

03590 

03600 

03610 

03620 ; 

03630 ; 

03640 ; 

03650 ; 

03660 ; 

03670 ; 

03680 ; 

03690 ; 

03700 ; 

03710 $?1 

03720 

03730 $?2 

03740 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 

03840 

03850 

03860 

03870 

03880 $?3 

03890 

03900 CMND 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 

04010 

04020 

04030 

04040 

04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 

04130 

04140 CMD_C 

04150 



LD 

LD 

DEC 

LD 

CP 

JR 

LD 



SP 9 HL 

HL,(PCREG) 

HL 

A,(HL) 

0F7H 

NZ,$?1 

(PCREG).HL 



;P/u the byte at PC 

; & check for breakpoint 

;Go if not a breakpoint 



This next routine picks up the data stored in the 
instruction storage areas used to hold the 
address & byte of the inserted RST's used to 
control the single step mode. If the address 
save area is zero, then an RST was not inserted. 
Two areas are needed because DEBUG inserts 
RST 48' s at both CALL origin & destination. 



LD 

LD 

XOR 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

OR 

JR 

LD 

CP 

JR 

LD 

LD 

INC 

DJNZ 

LD 

CALL 

LD 

LD 

LD 

RST 

CALL 

CP 

JP 

LD 

PUSH 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JP 

CP 



HL,SAV0NE 

B,2 

A 

E,(HL) 

(HL) 9 A 

HL 

D S (HL) 

(HL) 9 A 

HL 

A,E 

D 

Z s $?3 

A 9 (DE) 

0F7H 

NZ 9 $?3 

A 9 (HL) 

(DE) 9 A 

HL 

$?2 

SP 9 (SPREG) 

WRREGS 

HL 9 16<8!0 

B,3 

A, 15 

28H 

INPUTS 

'g' 

Z S CMD_G 

HL,CMND 

HL 

's' 

Z,CMD_S 

Z,CMD_INC 
i _ i 

Z 9 CMD_DEC 

'o' 

Z 9 CMD_0 

'c' 

Z,CMD_C 

■d' 

Z 9 CMD_D 

' i ' 

Z,CMD_CI 

'a' 



;Set up loop for 2 areas 
;Clear register A & flags 
;P/u the next 2 bytes 
; (where an address 
; would be stored) while 
; simultaneously setting 
; the save area to zero 

;Ck if the area was zero 

;If zero, no RST entry 
;Address save <> zero, 
; ck byte for RST 48 

; Was RST 48 9 restore 
the program byte 

Loop thru 2 save areas 
Set up the stack 

& display normal CRT 
Move cursor to 16,0 
Command 
Svc @VDCTL 
Set cursor 
Get command 
;Goto AAAA,(BBBB(,CCCO) 

;Set up a return branch 

;Set CRT to full screen? 

;Inc CRT one page? 

;Dec CRT one page? 

;Out to DOS 

;Single step with CALL? 

;Di splay AAAA <space> 

;Single step? 

;ASCII modify memory? 
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1E86 CAD61F 


04160 


JP 


Z,CMD AH 




1E89 FE68 


04170 


CP 


'h' 


;Hex modify memory AAAA? 


1E8B CAD61F 


04180 


JP 


Z,CMD AH 




1E8E FE72 


04190 


CP 


•r« 


;Modify reg pair RP DDDD? 


1E90 CA3F20 


04200 


JP 


Z,CMD R 




1E93 FE75 


04210 


CP 


'u' 


.Dynamic display update? 


1E95 280A 


04220 


JR 


Z,CMD U 




1E97 FE78 


04230 


CP 


'X* 


;Di splay register format? 


1E99 C23F22 


04240 
04250 ; 


JP 


NZ, BLOCK 


;Try extra commands 




04260 ; 


Command 


X - Normal displc 


iy mode 




04270 ; 








1E9C AF 


04280 CMD X 


XOR 


A 




1E9D 32A100 


04290 CMD S 


LD 


(SAVTWO),A 


.Show not full screen 


1EA0 C9 


04300 
04310 ; 


RET 








04320 ; 


Command 


U - Continuously 


update display 




04330 ; 








1EA1 CD3506 


04340 CMD U 


CALL 


@KBD 


;Scan keyboard 


1EA4 B7 


04350 


OR 


A 


;Character entered? 


1EA5 C0 


04360 


RET 


NZ 


;Return to CMND if so 


1EA6 CDD51E 


04370 


CALL 


WRREGS 


; else refresh display 


1EA9 18F6 


04380 
04390 ; 


JR 


CMDJJ 


, & loop 




04400 ; 


Command 


D - Display memory at address NNNN 




04410 ; 








1EAB CDE421 


04420 CMD D 


CALL 


HEXING 




1EAE C8 


04430 


RET 


Z 


,Ret to CMND if no char 


1EAF 1814 


04440 
04450 
04460 ; 


JR 


$?6 


; else set DSPADR to 
, new address in HL 




04470 ; 


Command 


; - Increment memory display one block 




04480 ; 








1EB1 014000 


04490 CMD INC 


LD 


BC 9 64 


,Init for 64-byte block 


1EB4 2AA600 


04500 $?4 


LD 


HL,(DSPADR) 


P/u current display addr 


1EB7 3AA100 


04510 
04520 


LD 


A,(SAVTWO) 


=0 -> Normal disp mode 
<>0 -> Ful 1 disp mode 


1EBA B7 


04530 


OR 


A 




1EBB 2807 


04540 


JR 


Z,$?5 




1EBD 0E00 


04550 
04560 
04570 


LD 


C,0 


Zero out low order to 
provide inc or dec of 
256 bytes (full disp) 


1EBF 78 


04580 


LD 


A,B 


,B=00 -> inc 1 page, 


1EC0 B7 


04590 


OR 


A 


, make BC = 256 


1EC1 2001 


04600 


JR 


NZ,$?5 


,B=FF -> Dec 1 page, 


1EC3 04 


04610 


INC 


B 


, just add 


1EC4 09 


04620 $?5 


ADD 


HL,BC 


;HL now points to 


1EC5 22A600 


04630 $?6 


LD 


(DSPADR),HL 


new display address 


1EC8 C9 


04640 
04650 ; 


RET 








04660 ; 


Command 


- - Decrement men 


nory display 1 block 




04670 ; 








1EC9 01C0FF 


04680 CMD DEC 


LD 


BC0FFC0H 


I nit to 64-byte dec 


1ECC 18E6 


04690 
04700 ; 


JR 


$?4 






04710 ; 


Command 


- Exit to DOS 






04720 ; 








1ECE CDC921 


04730 CMD 


CALL 


INPUTS 


Fetch valid terminator 


1ED1 D0 


04740 


RET 


NC 


;Back if bad char 


1ED2 C30B1B 


04750 
04760 ; 


JP 


@EXIT 


Else exit to DOS 
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04770 ; 


Register display r< 




04780 ; 








04790 WRREGS 






1ED5 3E1C 


04800 


LD 


A.1CH 


1ED7 CD4206 


04810 


CALL 


@DSP 




04820 


IF 


0MOD4 


1EDA 3E0F 


04830 


LD 


A, 15 


1EDC CD4206 


04840 


CALL 


@DSP 




04850 


ENDIF 




1EDF 3AA100 


04860 


LD 


A,(SAVTWO) 


1EE2 B7 


04870 


OR 


A 


1EE3 2068 


04880 


JR 


NZ,FULDSP 


1EE5 21A800 


04890 


LD 


HL.AFREG 


1EE8 E5 


04900 


PUSH 


HL 


1EE9 21561F 


04910 


LD 


HL.REGTBL 


1EEC 060C 


04920 


LD 


B 9 12 


IEEE CD3522 


04930 $?8 


CALL 


WR3BYT 


1EF1 E3 


04940 


EX 


(SP).HL 


1EF2 5E 


04950 


LD 


E,(HL) 


1EF3 23 


04960 


INC 


HL 


1EF4 56 


04970 


LD 


D,(HL) 


1EF5 23 


04980 


INC 


HL 


1EF6 E5 


04990 


PUSH 


HL 


1EF7 EB 


05000 


EX 


DE,HL 


1EF8 3E3D 


05010 


LD 


A,' = ' 


1EFA CD4206 


05020 


CALL 


@DSP 


1EFD CD3122 


05030 


CALL 


WRSPA0 


1F00 7C 


05040 


LD 


A,H 


1F01 CD2E22 


05050 


CALL 


WRHEX 


1F04 7D 


05060 


LD 


A,L 


1F05 CD2E22 


05070 


CALL 


WRHEX 


1F08 78 


05080 


LD 


A,B 


1F09 E60B 


05090 


AND 


0BH 


1F0B FE08 


05100 


CP 


08H 


1F0D 201C 


05110 


JR 


NZ, NOFLG 


1F0F 4D 


05120 


LD 


C,L 


1F10 C5 


05130 


PUSH 


BC 


1F11 217A1F 


05140 


LD 


HL,FLGTBL 


1F14 0608 


05150 


LD 


B,8 


1F16 CB21 


05160 $?9 


SLA 


C 


1F18 7E 


05170 


LD 


A,(HL) 


1F19 3802 


05180 


JR 


C,$?10 


1F1B 3E2D 


05190 


LD 


A,'-' 


1F1D CD4206 


05200 $?10 


CALL 


@DSP 


1F20 23 


05210 


INC 


HL 


1F21 10F3 


05220 


DJNZ 


$?9 


1F23 CI 


05230 


POP 


BC 


1F24 3EFD 


05240 


LD 


A,61+0C0H 


1F26 CD4206 


05250 


CALL 


@DSP 


1F29 1803 


05260 


JR 


$?11 


1F2B CD7321 


05270 NOFLG 


CALL 


WRMEM 


1F2E El 


05280 $?11 


POP 


HL 


1F2F E3 


05290 


EX 


(SP),HL 


1F30 10BC 


05300 


DJNZ 


$?8 


1F32 El 


05310 


POP 


HL 


1F33 2AA600 


05320 


LD 


HL,(DSPADR) 


1F36 0604 


05330 


LD 


B,4 


1F38 3EC6 


05340 $?12 


LD 


A,6+0C0H 


1F3A CD4206 


05350 


CALL 


@DSP 


1F3D CD1522 


05360 


CALL 


WR2HEX0 


1F40 CD3122 


05370 


CALL 


WRSPA@ 



Page 00004 



;Home the cursor 



;Turn off the cursor 



;0 = Normal display mode 
;<> = Full display mode 
;No reg display if FULL 
;Pt to register save area 

;Pt to reg symbol table 
;Init for 12 registers 
;Write 3-character symbol 
;Exchange reg save ptr 
;Place reg value -> DE 



;Place next reg save 
; pointer on the stack 
;Reg value -> HL 



; Write hi -order byte 

; Write lo-order byte 

;Get loop counter & 
; ck if 12 => AF pair 
; or if 8 => AF ' pair 
;Bypass if not flag reg 
;Transfer 'F' reg to C & 
; save the loop counter 
;Pt to flag synbol table 
; Ini t for 8 bits 
;Shift a bit into carry 
;P/u flag table character 
;Use table char if bit on 
; else use a dash 

;Next flag table char 
;Loop for 8 flag bits 
;Get main loop counter 
;Tab 60 to put cursor 
; on next line 



;Get next reg save ptr 

;Exc with next reg symbol 

;Loop end 

;Get reg save ptr (fini) 

;P/u memory disp address 

;Init for 4 lines 

;Tab 6 spaces 

;Write the memory address 
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1F43 CD7321 


05380 


CALL 


WRMEM 


; Write a line of memory 


1F46 10F0 


05390 


DJNZ 


$?12 


;Loop until 4 or 16 


1F48 3E1F 


05400 


LD 


A,1FH 


;Clear to end-of-frame 


1F4A C34206 


05410 


JP 


GDSP 




1F4D 2AA600 


05420 FULDSP 


LD 


HL,(DSPADR) 


;P/u display address 


1F50 2E00 


05430 


LD 


L 9 


;Round to multiple of 256 


1F52 0610 


05440 


LD 


B,16 


;Init for 16 lines 


1F54 18E2 


05450 
05460 ; 


JR 


$?12 






05470 ; 


Register symbol table 






05480 ; 








1F56 61 


05490 REGTBL 


DB 


'af be de hi af 


'be' 'de' 'hi * ' ix iy sp pc 


66 20 62 


63 20 64 65 


20 






68 6C 20 


61 66 27 62 


63 






27 64 65 


27 68 6C 27 


69 






78 20 69 79 20 73 70 20 






70 63 20 












05500 ; 












05510 , 




Flag 


register bit symbol 


table 




05520 , 










1F7A 53 


05530 FLGTBL 


DB 


'SZ1H1PNC 




5A 31 48 


31 50 4E 43 
05540 ; 










05550 ; 


Command G - Go to memory address NNNN, 




05560 ; 


Optional breakpoints 






05570 ; 








1F82 0602 


05580 CMD G 


LD 


B,2 


;Init for maximum of 


1F84 11A500 


05590 


LD 


DE,NXTBYT 


; two breakpoints 


1F87 CDE421 


05600 


CALL 


HEXING 


;Get exec address 


1F8A 2803 


05610 


JR 


Z,$?13 


;Go on end 


1F8C 22BE00 


05620 


LD 


(PCREG),HL 


; else save new start 


1F8F 380A 


05630 $?13 


JR 


C,$?14 


;Go if <ENTER> used 


1F91 CDE421 


05640 


CALL 


HEXING 


;Get a breakpoint 


1F94 F5 


05650 


PUSH 


AF 




1F95 C4C51F 


05660 


CALL 


NZ,$?17 


;Set if brkpt entered 


1F98 Fl 


05670 


POP 


AF 




1F99 10F4 


05680 
05690 $?14 


DJNZ 


$?13 




1F9B AF 


05700 - 


XOR 


A 




1F9C 329F19 


05710 


LD 


(@DBGHK),A 


; I n i t DEBUG on 




05720 












05730 




This 


next section of code picks up the register 




05740 




save 


area, pushes the save area onto the stack, 




05750 




then 


pops out into the < 


:orrect reg assignments. 




05760 










1F9F 21BD00 


05770 $?15 


LD 


HL,REGSAV 


;End of reg save area 


1FA2 060B 


05780 


LD 


B,ll 


;Init for 11 regs 


1FA4 56 


05790 $?16 


LD 


D,(HL) 




1FA5 2B 


05800 


DEC 


HL 




1FA6 5E 


05810 


LD 


E,(HL) 




1FA7 2B 


05820 


DEC 


HL 




1FA8 D5 


05830 


PUSH 


DE 




1FA9 10F9 


05840 


DJNZ 


$?16 




1FAB Fl 


05850 


POP 


AF 


;Now pop the registers 


1FAC CI 


05860 


POP 


BC 




1FAD Dl 


05870 


POP 


DE 




1FAE El 


05880 


POP 


HL 




1FAF 08 


05890 


EX 


AF,AF' 




1FB0 D9 


05900 


EXX 






1FB1 Fl 


05910 


POP 


AF 




1FB2 CI 


05920 




POP 


BC 
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1FB3 Dl 
1FB4 El 
1FB5 08 
1FB6 D9 
1FB7 DDE1 
1FB9 FDE1 
1FBB El 
1FBC F9 
1FBD 2ABE00 
1FC0 E5 
1FC1 2AAE00 
1FC4 C9 



1FC5 7E 

1FC6 12 

1FC7 IB 

1FC8 3EF7 

1FCA 77 

1FCB BE 

1FCC C2321E 

1FCF 7C 

1FD0 12 

1FD1 IB 

1FD2 7D 

1FD3 12 

1FD4 IB 

1FD5 C9 



1FD6 32A000 
1FD9 2AA300 
1FDC CDE421 
1FDF 22A300 
1FE2 D8 
1FE3 E5 
1FE4 CDD51E 
1FE7 21000D 
1FEA 0603 
1FEC 3E0F 
1FEE EF 
1FEF 2AA300 
1FF2 CD1522 
1FF5 E5 
1FF6 21000E 
1FF9 0603 
1FFB 3E0F 
1FFD EF 
1FFE El 
1FFF CD1320 
2002 3E2D 



05930 
05940 
05950 
05960 
05970 
05980 
05990 



06010 

06020 

06030 

06040 

06050 ; 

06060 ; 

06070 ; 

06080 ; 

06090 ; 

06100 ; 

06110 ; 

06120 ; 

06130 ; 

06140 ; 

06150 $?17 

06160 

06170 

06180 

06190 

06200 

06210 

06220 

06230 

06240 

06250 

06260 

06270 

06280 

06290 

06300 

06310 

06320 

06330 CMD AH 

06340 

06350 

06360 $?18 

06370 

06380 

06390 

06400 

06410 

06420 

06430 

06440 

06450 

06460 

06470 

06480 

06490 

06500 

06510 

06520 

06530 



POP 

POP 

EX 

EXX 

POP 

POP 

POP 

LD 

LD 

PUSH 

LD 

RET 



DE 
HL 
AF S AF' 

IX 

IY 

HL 

SP,HL 

HL,(PCREG) 

HL 

HL,(HLREG) 



;Init the branch address 



;Go to branch 



This next routine will insert an RST 48 inst into 
the target of a single-step or breakpoint 
providing the target address is a RAM location. 
If it is 9 the target byte and its address are 
saved in one of the instruction save areas. 
If the target address is ROM or nonexistent, a 
branch to command INPUT routine is taken instead 
of the pending operation. 



LD 

LD 

DEC 

LD 

LD 

CP 

JP 

LD 

LD 

DEC 

LD 

LD 

DEC 

RET 



A,(HL) 

(DE),A 

DE 

A,0F7H 

(HL),A 

(HL) 

NZ,$?1 

A,H 

(DE),A 

DE 

A,L 

(DE) S A 

DE 



;Save byte of next inst 



;Insert RST 48 into 
; next INST address 
;Ck if RAM/ROM/no memory 
;Go to command if not RAM 
;Is RAM, save address of 
; insertion into buffer 
; pointed to by DE, DE-1 



Commands A & H - Modify address 
<SPACE> increments address 



to XX 



LD 

LD 

CALL 

LD 

RET 

PUSH 

CALL 

LD 

LD 

LD 

RST 

LD 

CALL 

PUSH 

LD 

LD 

LD 

RST 

POP 

CALL 

LD 



(SAV0NE),A 

HL,(NXTADR) 

HEXING 

(NXTADR),HL 

C 

HL 

WRREGS 

HL,13<8!0 

B,3 

A, 15 

28H 

HL,(NXTADR) 

WR2HEX0 

HL 

HL,14<8!0 

B,3 

A, 15 

28H 

HL 

AHDSP 

A,'-' 



;Save entry condition 
;Default to current mod addr 

;Adjust addr for mod 
;Return on <ENTER> 



;Cursor to 13,0 

;SVC 0VDCTL set cursor 

;P/u mod address again 
;Write the address & save 
; the mod addr again 
;Cursor to 14,0 

;SVC 0VDCTL set cursor 

;Recover mod addr 
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2004 CD4206 


06540 


CALL 


?DSP 




2007 Dl 


06550 


POP 


DE 


;Recover mod addr in DE 


2008 CD2920 


06560 


CALL 


AHGET 




200B EB 


06570 


EX 


DE,HL 


;Switch mod addr/value 


200C 2801 


06580 


JR 


Z s $?19 


;Bypass change on <SPACE> 


200E 73 


06590 


LD 


(HL) S E 


; Insert new val in memory 


200F D8 


06600 $?19 


RET 


C 


;To CMND on non-digit 


2010 23 


06610 


INC 


HL 


; else increment address 


2011 18CC 


06620 


JR 


$?18 


; pointer & loop 


2013 3AA000 


06630 AHDSP 


LD 


A.(SAVONE) 




2016 FE61 


06640 


CP 


'a' 




2018 C21122 


06650 


JP 


NZ,WR1HEX? 


;Write (HL) & bump H 


201B 7E 


06660 DSPASC? 


LD 


A,(HL) 


;Else write in ASCII 


201C FE20 


06670 


CP 


20H 


;Convert non-displayable 


201E 3804 


06680 


JR 


C,TYP3 


; values to ' . ' 


2020 FEC0 


06690 


CP 


0C0H 




2022 3802 


06700 


JR 


C,TYP4 




2024 3E2E 


06710 TYP3 


LD 


A,'.' 




2026 C34206 


06720 TYP4 


JP 


?DSP 




2029 3AA000 


06730 AHGET 


LD 


A,(SAVONE) 




202C FE61 


06740 


CP 


'a' 




202E C2E421 


06750 


JP 


NZ S HEXING 




2031 E5 


06760 GETASC? 


PUSH 


HL 


; Provide lower/ upper 


2032 21D621 


06770 


LD 


HL 9 INPUC?+1 


; case entry in type 


2035 366F 


06780 


LD 


(HD.6FH 


; by modifying sys5 code 


2037 CDC921 


06790 


CALL 


INPUT? 




203A 36EF 


06800 


LD 


(HL) s 0EFH 


;Restore the UC -> 1c 


203C El 


06810 


POP 


HL 


; conversion 


203D 6F 


06820 


LD 


L S A 




203E C9 


06830 
06840 ; 


RET 








06850 ; 


Command 


R - Load register pair RP with NNNN 




06860 ; 








203F CDC921 


06870 CMD R 


CALL 


INPUT? 


;Get 1st symbol char 


2042 C8 


06880 


RET 


Z 


;Return if end 


2043 4F 


06890 


LD 


C,A 


; else save char in C 


2044 CDC921 


06900 


CALL 


INPUT? 


;Get 2nd symbol char 


2047 C8 


06910 


RET 


Z 


;Return if end 


2048 57 


06920 


LD 


D,A 


; else save char in D 


2049 1E20 


06930 


LD 


E,' ' 


;Init for space 


204B CDC921 


06940 


CALL 


INPUT? 


;Get 3rd symbol char 


204E D8 


06950 


RET 


C 


;Return on end 


204F 2806 


06960 


JR 


Z,$?20 


; Bypass if not primed 


2051 5F 


06970 


LD 


E,A 


; else put "' " into E 


2052 CDC921 


06980 


CALL 


INPUT? 


;Ck for space separator 


2055 C0 


06990 


RET 


NZ 


;Return if none 


2056 D8 


07000 


RET 


C 




2057 21561F 


07010 $?20 


LD 


HL,REGTBL 


;Register symbol table 


205A 060C 


07020 


LD 


B,12 


;Init for 12 registers 


205C 7E 


07030 $?21 


LD 


A,(HL) 


;Match first symbol? 


205D B9 


07040 


CP 


C 




205 E 2806 


07050 


JR 


Z,$?24 


;If a match, test 2nd 


2060 23 


07060 


INC 


HL 


; else pt to next reg 


2061 23 


07070 $?22 


INC 


HL 




2062 23 


07080 $?23 


INC 


HL 




2063 10F7 


07090 


DJNZ 


$?21 


;Loop for 12 regs 


2065 C9 


07100 


RET 




;Return if no match 


2066 23 


07110 $?24 


INC 


HL 


;Pt to 2nd table char 


2067 7E 


07120 


LD 


A,(HL) 


; & p/u the symbol 


2068 BA 


07130 


CP 


D 


;Ck the 2nd char input 


2069 20F6 


07140 


JR 


NZ,$?22 


;-> next if no match 
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206B 23 


07150 


INC 


HL 


;Match 9 ck 3rd reg symbol 


206C 7E 


07160 


LD 


A,(HL) 


;P/u the 3rd table symbol 


206D BB 


07170 


CP 


E 


; & compare with input 


206E 20F2 


07180 


JR 


NZ,$?23 


;-> next if no match 


2070 3E18 


07190 


LD 


A,18H 


;Convert counter to index 


2072 90 


07200 


SUB 


B 


; into reg save area 


2073 90 


07210 


SUB 


B 




2074 4F 


07220 


LD 


C S A 


; Index into BC 


2075 0600 


07230 


LD 


B,0 




2077 21A800 


07240 


LD 


HL,AFREG 


;Start of reg save area 


207A 09 


07250 


ADD 


HL S BC 


;Add index to get pointer 


207B E5 


07260 


PUSH 


HL 


;Save the pointer 


207C 3E1E 


07270 


LD 


A,1EH 


;Erase to end-of-line 


207E CD4206 


07280 


CALL 


@DSP 




2081 Dl 


07290 


POP 


DE 


;Recover pointer 


2082 CDE421 


07300 


CALL 


HEXING* 


;Read in the new value 


2085 C8 


07310 


RET 


Z 


;No update if none 


2086 EB 


07320 


EX 


DE 9 HL 


;Exchg value/pointer 


2087 73 


07330 


LD 


(HL) S E 


; Insert new value into 


2088 23 


07340 


INC 


HL 


; register save area 


2089 72 


07350 


LD 


(HL) S D 




208A C9 


07360 
07370 ; 


RET 








07380 ; 


Commanc 


J I - Step one 


instruction at a time 




07390 ; 








208B F5 


07400 CMD CI 


PUSH 


AF 


;Save whether I or C 


208C ED5BBE00 07410 


LD 


DE,(PCREG) 


; Point to inst address 


2090 1A 


07420 


LD 


A S (DE) 


; & get it 


2091 215721 


07430 


LD 


HL,XY TAB 


;IX,IY Table 


2094 FEDD 


07440 


CP 


0DDH 


;Is inst an IX? 


2096 280E 


07450 


JR 


Z,$?25 




2098 FEFD 


07460 


CP 


0FDH 


;Is inst an IY? 


209A 280A 


07470 


JR 


Z,$?25 




209C 211F21 


07480 


LD 


HL,OP TAB 


;A11 X IX, IY, & ED 


209F FEED 


07490 


CP 


0EDH 


;Is inst an ED? 


20A1 2006 


07500 


JR 


NZ 9 $?26 




20A3 215021 


07510 


LD 


HL 9 ED TAB 


;ED Table 


20A6 13 


07520 $?25 


INC 


DE 


;Get next byte for 


20A7 1A 


07530 


LD 


A,(DE) 


; IX, IY, and ED inst 


20A8 IB 


07540 


DEC 


DE 


;Reset ptr to 1st byte 


20A9 4F 


07550 $?26 
07560 ; 


LD 


C,A 


;Inst byte to reg C 




07570 ; 


This next section of 


code determines the length 




07580 ; 


of all 


instructions c 


ind whether they 




07590 ; 


are CALLs, JumPs, or 


RETurns. 




07600 ; 








20AA 7E 


07610 $?27 


LD 


A 9 (HL) 


;P/u table value & 


20AB Al 


07620 


AND 


C 


; strip off certain bits 


20AC 23 


07630 


INC 


HL 


;Pt to table code 


20AD BE 


07640 


CP 


(HL) 


;If a match, the inst is 


20AE 23 


07650 


INC 


HL 


; fully decoded as to 


20AF 2806 


07660 


JR 


Z,$?28 


; length & type by the 


20B1 23 


07670 


INC 


HL 


; next byte 


20B2 7E 


07680 


LD 


A,(HL) 


;Ck for table end 


20B3 FE05 


07690 


CP 


5 




20B5 30F3 


07700 


JR 


NC,$?27 




20B7 7E 


07710 $?28 


LD 


A,(HL) 


;Get control/length byte 


20B8 47 


07720 


LD 


B,A 


; into reg B 


20B9 E60F 


07730 


AND 


0FH 


;Strip off the control 


20BB 6F 


07740 


LD 


L,A 


;Put length into reg L 


20BC 2600 


07750 


LD 


H,0 


;Zero out reg H 
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20BE 19 
20BF D5 
20C0 11A500 
20C3 CDC51F 
20C6 El 
20C7 78 
20C8 E6F0 
20CA 282A 
20CC 23 
20CD FE20 
20CF 3846 
20D1 2838 
20D3 FE40 
20D5 382B 
20D7 2823 
20D9 FE60 
20DB 381C 
20DD 2812 
20DF 79 
20E0 E638 
20E2 6F 
20E3 2600 
20E5 Fl 
20E6 FE63 
20E8 280C 
20EA 7D 
20EB FE28 
20ED 3007 
20EF 1829 
20F1 Fl 
20F2 FE69 
20F4 2806 
20F6 C39F1F 
20F9 2ABC00 
20FC 7E 
20FD 23 
20FE 66 
20FF 6F 
2100 1818 

2102 4E 

2103 79 

2104 07 

2105 9F 

2106 47 

2107 23 

2108 09 

2109 180F 
210B 2AB800 
210E CB69 

2110 2808 
2112 2ABA00 
2115 1803 
2117 2AAE00 
211A CDC51F 
211D 18D7 



07760 

07770 

07780 

07790 

07800 

07810 

07820 

07830 

07840 

07850 

07860 

07870 

07880 

07890 

07900 

07910 

07920 

07930 

07940 

07950 

07960 

07970 

07980 

07990 

08000 

08010 

08020 

08030 

08040 

08050 $?28A 

08060 

08070 

08080 $?29 

08090 $?30 

08100 $?31 

08110 

08120 

08130 

08140 

08150 $?32 

08160 

08170 

08180 

08190 

08200 

08210 

08220 

08230 $?33 

08240 

08250 

08260 

08270 

08280 $?34 

08290 $?35 

08300 

08310 

08320 

08330 

08340 

08350 

08360 



ADD 

PUSH 

LD 

CALL 

POP 

LD 

AND 

JR 

INC 

CP 

JR 

JR 

CP 

JR 

JR 

CP 

JR 

JR 

LD 

AND 

LD 

LD 

POP 

CP 

JR 

LD 

CP 

JR 

JR 

POP 

CP 

JR 

JP 

LD 

LD 

INC 

LD 

LD 

JR 

LD 

LD 

RLCA 

SBC 

LD 

INC 

ADD 

JR 

LD 

BIT 

JR 

LD 

JR 

LD 

CALL 

JR 



HL,DE 

DE 

DE,NXTBYT 

$?17 

HL 

A,B 

0F0H 

Z,$?29 

HL 

20H 

C,$?34 

Z,$?33 

40H 

C,$?32 

Z,$?31 

60H 

C,$?30 

Z,$?28A 

A,C 

38H 

L,A 

H,0 

AF 

'c' 

Z,$?29 

A,L 

5<3 

NC,$?29 

$?35 

AF 

■i' 

Z,$?31 

$?15 

HL,(SPREG) 

A,(HL) 

HL 

H,(HL) 

L,A 

$?35 

C,(HL) 

A,C 

A, A 

B,A 

HL 

HL,BC 

$?35 

HL,(IXREG) 

5,C 

Z 9 $?35 

HL,(IYREG) 

$?35 

HL,(HLREG) 

$?17 

$?29 



;Next address into HL 
;This addr in DE saved 
;Buffer area 
;Insert RST 48 if RAM 
;Get this inst address 
;Get control/length byte 
;Strip off length 
;Go if regular inst 



;Branch if 'JP (HL)' 
;Go if 'JP (IX/IY)' 

;Go if 'JR' or 'DJNZ' 
;Branch if 'JP' inst 

;Branch if 'RET' inst 
;Branch if CALL inst 
; else calc target of 
; the RST inst 



Rcvr entry command 

Go in "call" mode 
Must check RST for 

40, 48, 56 inhibit 
Convert to CALL 

else single step 
Recover entry command 
Was command an ' I' 
Go for 'CALLS' if 'I' 
Go for 'CALLS' if 'C 
RET inst, p/u RET addr 
JP inst, p/u jump addr 

insert into reg HL 



'JR' or 'DJNZ', get 'E' 

Make A=0 if C is 
positive, else make 
A=FF for negative 

Put -> B, FF if 'E' neg 
or if 'E' pos. 

Add the displacement 

Init for JP (IX) 
Test inst for DD/FD 
Bit 5 off = DD 
JP (IY), p/u jump addr 

JP (HL), p/u jump addr 



The next three tables are used to determine the 
length & instruction type for all instructions 
used in the single-step mode. Table format uses 
three bytes for each decoding process. The 1st 
byte is ANDed with the inst byte to strip off 



Page 212 



The Source 



SYSTEM Files 



SYS5 - LS-DOS 6.2 



Page 00010 



08370 
08380 
08390 



211F 

2122 

2125 

2128 

212B 

212E 
2130 
2131 

2134 
2136 
2137 

213A 
213C 
213D 

2140 
2142 
2143 

2146 

2149 

214C 

214F 



C7 

C0 51 

FF 

C9 51 

FF 

E9 11 

CF 

01 03 

E7 

22 03 

C7C2 

43 

FF 

C3 43 

C7C4 

63 

FF 

CD 63 

C706 

02 

F7 

D3 02 

C7C6 

02 

FF 

CB 02 

F7 

10 32 

E7 

20 32 

C7 

C7 71 

01 



2150 C7 

43 04 
2153 F7 

45 52 
2156 02 



08410 
08420 
08430 



08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
08570 OP TAB DB 



selected bits and include others. The result is 
compared to the next table byte (test byte) for 
a match. If matched, then the inst byte has been 
identified as to its class & length. The 3rd byte 
denotes the class and length as follows: 
High order nybble 

= Regular instruction 

1 = JP (HL) instruction 

2 = JP (IX) or JP (IY) instruction 

3 = JR or DJNZ instructions 

4 = JP instructions 

5 = RET instructions 

6 = CALL instructions 

7 = RST instructions 
Low order nybble = the length 

The last byte of each table is the length of 
all other instructions. 



Table for regular instructions (no IX, IY, ED) 



08580 

08590 

08600 

08610 

08620 
08630 
08640 

08650 
08660 
08670 

08680 
08690 
08700 

08710 
08720 
08730 

08740 

08750 

08760 



08770 
08780 
08790 
08800 
08810 ED TAB DB 



0C7H,0C0H,51H 

DB 0FFH,0C9H,51H 

DB 0FFH,0E9H,11H 

DB 0CFH,01H,03H 

DB 0E7H,22H,3 

DW 0C2C7H 

DB 43H 

DB 0FFH,0C3H,43H 

DW 0C4C7H 

DB 63H 

DB 0FFH,0CDH,63H 

DW 06C7H 

DB 02H 

DB 0F7H,0D3H,02 

DW 0C6C7H 

DB 02H 

DB 0FFH,0CBH,2 

DB 0F7H,10H,32H 

DB 0E7H,20H,32H 

DB 0C7H,0C7H,71H 

DB 1 



;C8, D8, E8, F8 

;C9 

;E9 

;01, 11, 21, 31 

;22, 2A, 32, 3A 

;C2, CA, D2, DA, E2, EA, 

; F2, FA 

;C3 

; F4, FC 
;CD 

;06, 0E, 16, IE, 26, 2E, 
; 36, 3E 
;D3, DB 

;C6, CE, D6, DE, E6, EE, 

; F6, FE 

;A11 CB instructions 

;10, 18 

;20, 28, 30, 38 

;RST instructions 

;A11 others are 1-byte 



Next table is for ED - extended instructions 



08820 
08830 



DB 
DB 



0C7H,43H,04H 
0F7H,45H,52H 
2 



43, 4B, 53, 5B, 73, 7B 

45, 4D 

All other ED are 2-byte 
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08850 ; 


IX, IY Index instructions table 




08860 ; 








2157 FE 


08870 XYJTAB 


DB 


0FEH,34H,03 


;34, 35 


34 03 










215A C0 


08880 


DB 


0C0H,40H,03 


;4X 8 5X, 6X, 7X (X = 0-F) 


40 03 










215D C0 


08890 


DB 


0C0H,80H,03 


;8X, 9X, AX, BX (X= 0-F) 


80 03 










2160 FF 


08900 


DB 


0FFH,21H,04 


;2l 


21 04 










2163 FF 


08910 


DB 


0FFH,22H,04 


;22 


22 04 










2166 FF 


08920 


DB 


0FFH,2AH,04 


;2A 


2A 04 










2169 FF 


08930 


DB 


0FFH,36H,04 


;36 


36 04 










216C FF 


08940 


DB 


0FFH,0CBH,04 


;CB 


CB 04 










216F FF 


08950 


DB 


0FFH,0E9H,22H 


;E9 


E9 22 










2172 02 


08960 
08970 ; 


DB 


02H 


;A11 others are 2-bytes 




08980 ; 


Routine to display memory on CRT screen 




08990 ; 








2173 C5 


09000 WRMEM 


PUSH 


BC 


;Save main counter 4/16 


2174 3E3D 


09010 


LD 


A,' = ' 




2176 CD4206 


09020 


CALL 


@DSP 




2179 3C 


09030 


INC 


A 


;'>' 


217A CD4206 


09040 


CALL 


@DSP 




217D 0610 


09050 


LD 


B,16 


; I n i t for 16 lines 


217F E5 


09060 


PUSH 


HL 


;Save memory pointer 


2180 CDA421 


09070 $?36 


CALL 


GRPHIC 


;Ck if need graphic bars 


2183 CD1122 


09080 


CALL 


WRIHEXia 


;Call on HEX display only 


2186 10F8 


09090 


DJNZ 


$?36 


;Loop until full line 


2188 El 


09100 
09110 ; 


POP 


HL 


;Rcvr memory pointer 




09120 ; 


Now write the line in 


ASCII 




09130 ; 








2189 CD3122 


09140 


CALL 


WRSPA0 




218C 0610 


09150 


LD 


B,16 




218E CDC321 


09160 $?37 


CALL 


$?41 


;Space after 8th 


2191 7E 


09170 


LD 


A,(HL) 


;P/u the byte -> reg A 


2192 FE20 


09180 


CP 


20H 


;Repl controls with ' . ' 


2194 3804 


09190 


JR 


C,$?38 




2196 FEC0 


09200 


CP 


0C0H 


;Tabs/specials with ' . ' 


2198 3802 


09210 


JR 


C,$?39 




219A 3E2E 


09220 $?38 


LD 


A,'.' 




219C CD4206 


09230 $?39 


CALL 


@DSP 




219F 23 


09240 


INC 


HL 


;Bump memory address 


21A0 10EC 


09250 


DJNZ 


$?37 




21A2 CI 


09260 


POP 


BC 


;Get line counter 


21A3 C9 


09270 
09280 ; 


RET 








09290 ; 


This 


routine determines if the vertical graphic 




09300 ; 


bars 


should be surrour 


iding the current character 




09310 ; 








21A4 ED5BA300 09320 GRPHIC 


LD 


DE,(NXTADR) 


;P/u modification address 


21A8 13 


09330 


INC 


DE 


; & increment it 


21A9 E5 


09340 


PUSH 


HL 


;Save current memory 


21AA AF 


09350 


XOR 


A 


; display address 
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21AB ED52 


09360 


SBC 


HL,DE 


;Ck if mod addr=disp addr 




09370 


IF 


0MOD4 




21AD 3E95 


09380 
09390 


LD 
ENDIF 


A,95H 


;6raphic left bar 




09400 


IF 


0MOD2 






09410 


LD 


A,15H 






09420 


ENDIF 






21AF 280E 


09430 


JR 


Z,$?40 


; Insert graphic if equal 


21B1 CDC321 


09440 


CALL 


$?41 


;Not =, insert space if 


21B4 23 


09450 


INC 


HL 


; between pos 8 & 9 


21B5 7D 


09460 


LD 


A,L 


;Result is zero if next 


21B6 B4 


09470 
09480 


OR 


H 


; char address is also 
; the display address 


21B7 El 


09490 


POP 


HL 


;Get current mem disp adr 




09500 


IF 


0MOD4 




21B8 3EAA 


09510 


LD 


A,0AAH 


;Graphic right bar output 


21BA CA4206 


09520 


JP 


Z,@DSP 


;Go if yes 


21BD 1808 


09530 
09540 


JR 
ENDIF 


$?42 


; else continue 




09550 


IF 


@MOD2 






09560 


JR 


NZ,$?42 


;Go if not 




09570 


XOR 


A 


; lead in 




09580 


CALL 


@DSP 


;Init video lead in 




09590 


LD 


A,15H 






09600 


JP 


@DSP 


; and display 




09610 


ENDIF 






21BF 


09620 $?40 EQU 


$ 






09630 


IF 


0MOD2 






09640 


PUSH 


AF 






09650 


XOR 


A 






09660 


CALL 


@DSP 


;Lead in code 




09670 


POP 


AF 


;Restore 




09680 


ENDIF 






21BF CD4206 


09690 


CALL 


@DSP 


;Display char 


21C2 El 


09700 


POP 


HL 


;Recover current display 


21C3 78 


09710 $?41 LD 


A,B 


; address & output a 


21C4 FE08 


09720 


CP 


8 


; space if between the 


21C6 C0 


09730 


RET 


NZ 


; 8th & 9th bytes 


21C7 1868 


09740 $?42 JR 


WRSPA0 


; else just return 




09750 










09760 


; This routine will retur 


n with zero flag set 




09770 


, on entry of a comma or 


a SPACE. Entry of <ENTER> 




09780 


will s 


et carry flag and 


return 




09790 . 








21C9 D5 


09800 ] 


NPUT@ PUSH 


DE 




21CA CD2806 


09810 J 


5?43 CALL 


@KEY 




21CD FE0D 


09820 


CP 


0DH 


;ENTER? 


21CF 2810 


09830 


JR 


Z,$?44 




21D1 FE20 


09840 


CP 


20H 


;Get another char if 


21D3 38F5 


09850 


JR 


C,$?43 


; entry was control 


21D5 CBEF 


09860 I 


NPUCia SET 


5, A 


;Cvrt UC to 1c 


21D7 CD4206 


09870 


CALL 


(3DSP 


;Not control, disp it 


21DA Dl 


09880 


POP 


DE 




21DB FE2C 


09890 


CP 


» 


;Return with zero flag 


21DD C8 


09900 


RET 


1 


; set if a comma 


21DE FE20 


09910 


CP 


i i 


;Return with zero flag 


21E0 C9 


09920 


RET 




; set if <SPACE> 


21E1 Dl 


09930 $ 


?44 POP 


DE 




21E2 37 


09940 


SCF 




;<ENTER> will set 


21E3 C9 


09950 
09960 ; 


RET 




; the carry flag 
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09970 ; 


This routine will read ir 


i digits 




09980 ; 


and convert them to binary 




09990 ; 








21E4 CDC921 


10000 HEXING* 


CALL 


INPUT? ; 


Get char and return on 


21E7 C8 


10010 


RET 


Z 


SPACE, COMMA, or ENTER 


21E8 210000 


10020 


LD 


HL,0 ; 


Init value to zero 


21EB CD0022 


10030 $?45 


CALL 


CVB 


Convert to binary if ok 


21EE DA4C1E 


10040 


JP 


C.CMND 


else back on bad digit 


21F1 29 


10050 


ADD 


HL,HL ; 


Multiply current value 


21F2 29 


10060 


ADD 


HL,HL ; 


by 16 and insert the 


21F3 29 


10070 


ADD 


HL,HL ; 


new digit into the 


21F4 29 


10080 


ADD 


HL,HL ; 


lo-order nybble of L 


21F5 B5 


10090 


OR 


L 




21F6 6F 


10100 


LD 


L,A 




21F7 CDC921 


10110 


CALL 


INPUTS ; 


Get another character 


21FA 20EF 


10120 


JR 


NZ,$?45 


Go if not separator 


21FC IF 


10130 


RRA 


) 


Force <ENTER> to set 


21FD CE81 


10140 


ADC 


A.81H ; 


the carry flag 


21FF C9 


10150 
10160 ; 


RET 








10170 ; 


Routine 


to convert expected ASCII hex digit to 




10180 ; 


its binary value. Set Carry-flag on bad digit 




10190 ; 








2200 D630 


10200 CVB 


SUB 


'0' 


.Convert digit to binary 


2202 D8 


10210 


RET 


C 


.Error if < '0' 


2203 C6C9 


10220 
10230 


ADD 


A,0C9H ; 


Ck for > F (46H-30H=16H) 
(16H + E9H = FFH) 


2205 D8 


10240 


RET 


C 


;Error if > ASCII 'F' 


2206 C606 


10250 


ADD 


A, 6 


.(E9H-EFH) to (EFH-05H) 


2208 3803 


10260 


JR 


C,AT0F 


Carry denotes was <A-F> 


220A C627 


10270 


ADD 


A,27H 


(EFH-FFH) to (F6H-06H) 


220C D8 


10280 


RET 


C 


;Error if (3AH-3FH/:-?) 


220D C60A 


10290 ATOF 
10300 


ADD 


A,0AH 


.(00D-06D) to (10D-16D) 
, or (F6H-FFH) to (0-9) 


220F B7 


10310 


OR 


A 


;Set zero flag on zero 


2210 C9 


10320 
10330 ; 


RET 








10340 ; 


Routine 


to write one byte 


2 as two hex digits 




10350 ; 








2211 7E 


10360 WR1HEX@ LD 


A,(HL) 




2212 23 


10370 


INC 


HL 




2213 1805 


10380 
10390 ; 


JR 


CV2HEX0 






10400 ; 


Routine 


to write 2 bytes 


(HL) as 4 hex digits 




10410 ; 








2215 7C 


10420 WR2HEX@ 


LD 


A,H 




2216 CD1A22 


10430 


CALL 


CV2HEX0 




2219 7D 


10440 
10450 ; 


LD 


A,L 






10460 ; 


Routine 


converts a byte 1 


to 2 hex digits 




10470 ; 








221A F5 


10480 CV2HEX@ 


PUSH 


AF 


;Save the byte in A 


221B IF 


10490 


RRA 




;Move hi -order 


221C IF 


10500 


RRA 




; into lo-order 


221D IF 


10510 


RRA 






221E IF 


10520 


RRA 






221F CD2322 


10530 
10540 


CALL 


$?46 


;Strip off hi-order 
; & convert to ASCII 


2222 Fl 


10550 


POP 


AF 


;Recover the byte 


2223 E60F 


10560 $?46 
10570 


AND 


0FH 


;Strip off hi-order 
; & convert to ASCII 
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2225 C690 


10580 


ADD 


A,90H 




2227 27 


10590 


DAA 






2228 CE40 


10600 


ADC 


A S 40H 




222A 27 


10610 


DAA 






222B C34206 


10620 $?47 
10630 ; 


JP 


GDSP 






10640 ; 


Miscell 


aneous routines 






10650 ; 








222E CD1A22 


10660 WRHEX 


CALL 


CV2HEXG 




2231 3E20 


10670 WRSPAG 


LD 


A S 20H 




2233 18F6 


10680 
10690 ; 


JR 


$?47 




2235 CD3B22 


10700 WR3BYT 


CALL 


$?48 




2238 CD3B22 


10710 


CALL 


$?48 




223B 7E 


10720 $?48 


LD 


A,(HL) 




223C 23 


10730 


INC 


HL 




223D 18EC 


10740 
10750 ; 


JR 


$?47 






10760 ; 


Command 


B - Block move 






10770 ; 








223F FE62 


10780 BLOCK 


CP 


■b' 




2241 2048 


10790 


JR 


NZ.FILL 




2243 2AA600 


10800 


LD 


HL,(DSPADR) 


; 'b' lock move s,d,len 


2246 CDE421 


10810 


CALL 


HEXING 


;Default to display addd 


2249 D8 


10820 


RET 


C 


;Back on <ENTER> 


224A 22A600 


10830 


LD 


(DSPADR) S HL 


;Save start addr 


224D 2008 


10840 


JR 


NZ,BL01 


;Go if start entered 


224F CD1522 


10850 


CALL 


WR2HEXG 


; else show default 


2252 3E2C 


10860 


LD 


A ' ' 

n 9 9 




2254 CD4206 


10870 


CALL 


GDSP 




2257 2AA300 


10880 BLOl 


LD 


HL 9 (NXTADR) 


;Default next address 


225A CDE421 


10890 


CALL 


HEXING 




225D 22A300 


10900 


LD 


(NXTADR),HL 


;Save dest address 


2260 200A 


10910 


JR 


NZ S BL02 


;Go if entered 


2262 F5 


10920 


PUSH 


AF 




2263 CD1522 


10930 


CALL 


WR2HEXG 


; else show default 


2266 3E2C 


10940 


LD 


A ' ' 




2268 CD4206 


10950 


CALL 


GDSP 




226B Fl 


10960 


POP 


AF 




226C 210001 


10970 BL02 


LD 


HL,256 


;Default length to 256 


226F 3805 


10980 


JR 


C.BL03 


;Go if <ENTER> used prev 


2271 CDE421 


10990 


CALL 


HEXING 


;Get new length 


2274 2005 


11000 


JR 


NZ,BL04 


;Go if entered 


2276 E5 


11010 BL03 


PUSH 


HL 




2277 CD1522 


11020 


CALL 


WR2HEXG 


; else dsply default 


227A El 


11030 


POP 


HL 




227B 44 


11040 BL04 


LD 


B,H 


;Length to BC 


227C 4D 


11050 


LD 


C,L 




227D 2AA600 


11060 


LD 


HL,(DSPADR) 


;Set source 


2280 ED5BA300 


11070 


LD 


DE S (NXTADR) 


; and dest 


2284 EDB0 


11080 


LDIR 






2286 ED53A300 


11090 


LD 


(NXTADR),DE 


;Set new mod addr 


228A C9 


11100 
11110 ; 


RET 








11120 ; 


'fill 


aaaa,bbbb,cc 






11130 ; 








228B FE66 


11140 FILL 


CP 


If! 




228D 201C 


11150 


JR 


NZ S JUMP 




228F CDE421 


11160 


CALL 


HEXING 


;Get starting address 


2292 C8 


11170 


RET 


Z 




2293 E5 


11180 


PUSH 


HL 


;Save starting address 
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2294 
2297 
2298 
2299 
229A 
229B 
229E 
229F 
22A0 
22A1 
22A2 
22A3 
22A5 
22A6 
22A7 
22A8 
22A9 



CDE421 

E3 

CI 

C8 

E5 

CDE421 

5D 

El 

C8 

AF 

E5 

ED42 

El 

D0 

73 

23 

18F7 



22AB FE6A 
22AD 2008 
22AF 2ABE00 
22B2 23 
22B3 22BE00 
22B6 C9 



22B7 FE71 
22B9 2024 
22BB 3E1E 
22BD CD4206 
22C0 CDE421 
22C3 C8 
22C4 4D 
22C5 3807 
22C7 CDE421 
22CA C8 
22CB ED69 
22CD C9 
22CE 3E3D 
22D0 CD4206 
22D3 ED78 
22D5 CD1A22 
22D8 C3C921 



22DB 2AA419 
22DE E9 



22DF D630 
22E1 FE08 
22E3 30F6 
22E5 4F 



11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 FIL1 

11300 

11310 

11320 

11330 

11340 

11350 

11360 ; 

11370 ; 

11380 ; 

11390 JUMP 

11400 

11410 

11420 

11430 

11440 

11450 ; 

11460 ; 

11470 ; 

11480 ; 

11490 QUERY 

11500 

11510 

11520 

11530 

11540 

11550 

11560 

11570 

11580 

11590 

11600 

11610 QUE1 

11620 

11630 

11640 

11650 

11660 

11670 

11680 

11690 

11700 

11710 EXTDBG 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 



DISKIO 



CALL 

EX 

POP 

RET 

PUSH 

CALL 

LD 

POP 

RET 

XOR 

PUSH 

SBC 

POP 

RET 

LD 

INC 

JR 



HEXING 

(SP),HL 

BC 

Z 

HL 

HEXING 

E,L 

HL 

Z 

A 

HL 

HL, BC 

HL 

NC 

(HL),E 

HL 

FIL1 



;Get ending address 
;Place ending into BC 
; & starting into HL 

;Save starting again 
;Get fill character 
;Save fill in E 
;Recover starting addr 

;Clear the C-flag 



;Return when start = end 
;Stuff char into memory 



j'ump over next instruction 



CP 

JR 

LD 

INC 

LD 

RET 



'J' 

NZ, QUERY 

HL 9 (PCREG) 

HL 

(PCREG),HL 



;Get current PC location 
; and increment it 



'q'uery ii - 'q'uery oo,dd 
input/output to port 



CP 

JR 

LD 

CALL 

CALL 

RET 

LD 

JR 

CALL 

RET 

OUT 

RET 

LD 

CALL 

IN 

CALL 

JP 



•q' 

NZ 9 DISKI0 

A,1EH 

GDSP 

HEXING 

Z 

C,L 

CQUE1 

HEXING 

Z 

(C),L 

A,' = ' 

GDSP 

A,(C) 

CV2HEXG 

INPUTG 



;Clear to end of line 

;Get port number 
;Back if no value 

;If <ENTER> S do input 
;Get byte to output 
;Quit if none 
;Do the output 

;Dsply separator 

;Read the port and 
; dsply the value 



If a command is entered and not found in SYS5, 
SYS9 will be searched if the extended debugger 
is active. 



LD 
JP 



HL,(EXTDBG$) 
(HL) 



;Try extended debug 



disk i/o - d,c,s,r/w/*, addr, lth 



SUB 30H 

CP 8 

JR NC, EXTDBG 

LD C,A 



;Cvrt drive to binary 
;Check on max drive 
;Exit if not <0-7> 
;Xfer drive # to reg C 
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22E6 CD1E1A 


11800 


CALL 


GGTDCT 


; & get the DCT 


22E9 FD7E07 


11810 


LD 


A,(IY+7) 


;Get sectors/cyl & heads 


22EC E6E0 


11820 


AND 


0E0H 


;Remove sectors/cyl 


22EE 07 


11830 


RLCA 




; & keep # of heads 


22EF 07 


11840 


RLCA 




;Shift into bits 0-2 


22F0 07 


11850 


RLCA 






22F1 3C 


11860 


INC 


A 


;Adj for zero offset 


22F2 47 


11870 


LD 


B,A 




22F3 FD7E07 


11880 


LD 


A 9 (IY+7) 


;# of sectors per cyl 


22F6 E61F 


11890 


AND 


1FH 


; Remove heads 


22F8 3C 


11900 


INC 


A 


;Adj for zero offset 


22F9 67 


11910 


LD 


H,A 




22FA AF 


11920 


XOR 


A 


;Accumulate total # of 


22FB 84 


11930 DIS1 


ADD 


A,H 


;Sectors per cyl 


22FC 10FD 


11940 


DJNZ 


DIS1 




22FE FDCB046E 11950 


BIT 


5,(IY+4) 


;Test if 2-sided drive 


2302 2801 


11960 


JR 


Z,DIS2 




2304 87 


11970 


ADD 


A S A 


; Times 2 if 2- sided 


2305 32A200 


11980 DIS2 


LD 


(SAVTWO+l) s A 


;Save sectors per cyl 


2308 3E1E 


11990 


LD 


A,1EH 


;Clear to end of line 


230A CD4206 


12000 


CALL 


@DSP 




230D CDC921 


12010 


CALL 


INPUTS 


;Input CYL # 


2310 D8 


12020 


RET 


C 




2311 CDE421 


12030 


CALL 


HEXING 




2314 D8 


12040 


RET 


C 




2315 55 


12050 


LD 


D S L 


;Cylinder entered? 


2316 2003 


12060 


JR 


NZ,DIS3 




2318 FD5609 


12070 


LD 


D,(IY+9) 


;P/u directory cyl 


231B CDE421 


12080 DIS3 


CALL 


HEXING 




231E 5D 


12090 


LD 


E,L 


;Sector entered? 


231F 3E01 


12100 


LD 


A s l 


;Init to 1 sector i/o 


2321 2005 


12110 


JR 


NZ S DIS4 




2323 1E00 


12120 


LD 


E s 


;Default to sector 


2325 3AA200 


12130 


LD 


A,(SAVTWO+l) 


;Default to total sectors 


2328 32A500 


12140 DIS4 


LD 


(NXTBYT) 9 A 




232B D8 


12150 


RET 


C 




232C CDC921 


12160 


CALL 


INPUTS 


;Get I/O direction (RW*) 


232F D8 


12170 


RET 


C 




2330 47 


12180 


LD 


B,A 


;Save i/o char in B 


2331 CDC921 


12190 


CALL 


INPUTG 


;Get buffer i/o address 


2334 D8 


12200 


RET 


C 




2335 CDE421 


12210 


CALL 


HEXING 




2338 E5 


12220 


PUSH 


HL 


;Save buffer address 


2339 380B 


12230 


JR 


CDIS6 




233B E5 


12240 


PUSH 


HL 




233C CDE421 


12250 


CALL 


HEXING 


;Sector count entered? 


233F 7D 


12260 


LD 


A,L 




2340 El 


12270 


POP 


HL 




2341 2803 


12280 


JR 


Z,DIS6 


;Go if no sector count 


2343 32A500 


12290 


LD 


(NXTBYT),A 


;Else update count 


2346 78 


12300 DIS6 


LD 


A,B 


;P/u i/o direction 


2347 FE72 


12310 


CP 


. r . 


;Read? 


2349 2830 


12320 


JR 


Z,DIS9 




234B FE77 


12330 


CP 


'w' 


; Write? 


234D 2847 


12340 


JR 


Z.DIS10 




234F FE2A 


12350 


CP 


• *■ 


;Write to directory? 


2351 284A 


12360 


JR 


Z,DIS11 




2353 24 


12370 DIS7 


INC 


H 


;Bump up a buffer page 


2354 1C 


12380 


INC 


E 


;Bump sector number 


2355 3AA200 


12390 


LD 


A,(SAVTWO+l) 


;P/u max # sectors 


2358 3D 


12400 


DEC 


A 


;Compare max to where 
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2359 BB 


12410 




CP 


E 


; we are 


235A 3003 


12420 




JR 


NC S DIS8 


;Jump if more on cyl 


235C 1E00 


12430 




LD 


E,0 


;Reset sector # to 


235E 14 


12440 




INC 


D 


;Bump cylinder 


235F 3AA500 


12450 


DIS8 


LD 


A S (NXTBYT) 


;Reduce i/o sector count 


2362 3D 


12460 




DEC 


A 




2363 32A500 


12470 




LD 


(NXTBYT),A 




2366 20DE 


12480 




JR 


NZ,DIS6 


;Loop if not through 


2368 El 


12490 


DIS8A 


POP 


HL 


;Rcvr buffer start addr 


2369 78 


12500 




LD 


A,B 


;P/u i/o direction 


236A FE72 


12510 




CP 


, r , 


;Read? 


236C C0 


12520 




RET 


NZ 


;Ret if not read 


236D 2E00 


12530 




LD 


L,0 


;Reset memory buffer ptr 


236F 22A600 


12540 




LD 


(DSPADR),HL 


; to display the 1st 


2372 22A300 


12550 




LD 


(NXTADR),HL 


; sector read 


2375 3E73 


12560 




LD 


A,»s' 


;Set full screen mode 


2377 32A100 


12570 




LD 


(SAVTWO).A 




237A C9 


12580 
12590 


» 


RET 






237B 


12600 


DIS9 


EQU 


$ 




237B E5 


12610 




PUSH 


HL 




237C D5 


12620 




PUSH 


DE 




237D C5 


12630 




PUSH 


BC 




237E 54 


12640 




LD 


D,H 


;Pass buffer to DE 


237F 5D 


12650 




LD 


E,L 




2380 13 


12660 




INC 


DE 


;Start +1 


2381 3600 


12670 




LD 


(HL),0 


;Clear a byte 


2383 01FF00 


12680 




LD 


BC S 255 


;Length -1 


2386 EDB0 


12690 




LDIR 




;Clear buffer 


2388 CI 


12700 




POP 


BC 


;Unstack 


2389 Dl 


12710 




POP 


DE 




238A El 


12720 
12730 


> 


POP 


HL 




238B CDF419 


12740 




CALL 


0RDSEC 


;Read the sector 


238E 28C3 


12750 




JR 


Z,DIS7 


;Loop on read ok 


2390 FE06 


12760 




CP 


6 


; or directory read 


2392 28BF 


12770 




JR 


Z,DIS7 




2394 180C 


12780 




JR 


DIS12 


; else error 


2396 CDE819 


12790 


DIS10 


CALL 


@WRSEC 


;Write sector 


2399 28B8 


12800 




JR 


Z,DIS7 


;Loop on write ok 


239B 1805 


12810 




JR 


DIS12 




239D CDEC19 


12820 


dish 


CALL 


(3WRSSC 


;Write system sector 


23A0 28B1 


12830 
12840 


» 


JR 


Z S DIS7 


;Loop on write prot ok 




12850 


5 


disk 


i/o error output display routine 




12860 


J 








23A2 D5 


12870 


DIS12 


PUSH 


DE 


;Save track & sector 


23A3 F5 


12880 




PUSH 


AF 


;Save error code 


23A4 CD3122 


12890 




CALL 


WRSPA0 


;0utput a space 


23A7 3E2A 


12900 




LD 


A,'*' 




23A9 CD4206 


12910 




CALL 


@DSP 


; followed by asterisk 


23AC Fl 


12920 




POP 


AF 




23AD CD1A22 


12930 




CALL 


CV2HEX0 


;Write error # 


23B0 3E2A 


12940 




LD 


A,'*' 




23B2 CD4206 


12950 




CALL 


@DSP 


; followed by space 


23B5 CDC921 


12960 




CALL 


INPUTS 


;Continue? 


23B8 Dl 


12970 




POP 


DE 


;Rcvr track/sector 


23B9 3098 


12980 




JR 


NC.DIS7 


;Loop unless <ENTER> 


23BB 18AB 


12990 




JR 


DIS8A 


;Exit on <ENTER> 


23BD 


13000 LAST 


EQU 


$ 






13010 




IFGT 


LAST,MAXCOR$-2 
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13020 




ERR 


'Module too big' 




13030 




ENDIF 




23FE 


13040 




ORG 


MAXC0R$-2 


23FE BD05 


13050 
00180 ; 




DW 


LAST-SYS5 ;Overlay size 


1E00 


00190 




END 


SYS5 



Page 00018 
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$?1 


1E32 $?10 


1F1D $?11 


1F2E 


$?12 


1F38 $?13 


1F8F $?14 


1F9B 


$?15 


1F9F $?16 


1FA4 $?17 


1FC5 


$?18 


1FDF $?19 


200F $?2 


1E37 


$120 


2057 $?21 


205C $?22 


2061 


$?23 


2062 $?24 


2066 $?25 


20A6 


$?26 


20A9 $?27 


20AA $?28 


20B7 


$?28A 


20F1 $?29 


20F6 $?3 


1E49 


$?30 


20F9 $?31 


20FC $?32 


2102 


$?33 


210B $?34 


2117 $?35 


211A 


$?36 


2180 $?37 


218E $?38 


219A 


$?39 


219C $?4 


1EB4 $?40 


21BF 


$?41 


21C3 $?42 


21C7 $?43 


21CA 


$?44 


21E1 $?45 


21EB $?46 


2223 


$?47 


222B $?48 


223B $?5 


1EC4 


$?6 


1EC5 $?8 


IEEE $?9 


1F16 


$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 ©$SYS 


08F0 ©©1 


0000 


@@2 


0000 @@3 


0000 ©©4 


0000 


©ABORT 


1B08 ©ADTSK 


1CDA ©BANK 


0877 


©BKSP 


1486 ©BREAK 


196F ©BYTE 10 


1300 


©CHNIO 


0689 ©CKBRKC 


0553 ©CKDRV 


1993 


©CKEOF 


158F ©CKTSK 


1CF5 ©CLOSE 


1999 


©CLS 


0545 ©CMNDI 


197E ©CMNDR 


197B 


©CTL 


0623 ©DATE 


07A8 ©DBGHK 


199F 


©DCINIT 


19C0 ©DCRES 


19C4 ©DCSTAT 


19B5 


©DCTBYT 


1A2B ©DEBUG 


19A0 ©DECHEX 


03E1 


©DIRCYL 


18F7 ©DIRRD 


18BB ©DIRWR 


1803 


©DIV16 


06E3 ©DIV8 


1927 ©DODIR 


19AF 


©DOKEY 


19A9 ©DSP 


0642 ©DSPLY 


052D 


©ERROR 


1B0F ©EXIT 


1B0B ©FEXT 


1984 


©FLAGS 


196 A ©FNAME 


199C ©FRENCH 


0000 


©FSPEC 


1981 ©GATRD 


1874 ©GATWR 


1875 


©GERMAN 


0000 ©GET 


0638 ©GTDCB 


1990 


©GTDCT 


1A1E ©GTMOD 


19B2 ©HDFMT 


19E4 


©HEX16 


07BD ©HEX8 


07C2 ©HEXDEC 


06F6 


©HIGH$ 


1948 ©HITRD 


1897 ©HITWR 


1898 


©HZ50 


0000 ©ICNFG 


0086 ©INIT 


198D 


©INTL 


0000 ©I PL 


1BF2 ©JCL 


0630 


©KBD 


0635 ©KEY 


0628 ©KEYIN 


0585 


©KITSK 


0089 ©KLTSK 


1CD0 ©LOAD 


1B38 


©LOC 


14B3 ©LOF 


14DE ©LOGER 


0503 


©LOGOT 


0500 ©MOD2 


0000 ©M0D4 


FFFF 


©MSG 


0530 ©MUL16 


06C9 ©MUL8 


190A 


©NMI 


0066 ©OPEN 


198A ©OPREG 


0084 


©PARAM 


1987 ©PAUSE 


0382 ©PEOF 


14A2 


©POSN 


1434 ©PRINT 


0528 ©PRT 


063D 


©PUT 


0645 ©RAMDIR 


19AC ©RDHDR 


19D8 


©RDSEC 


19F4 ©RDSSC 


18D8 ©RDTRK 


19E0 


©READ 


1513 ©REMOVE 


19A6 ©RENAME 


1996 


©REW 


149B ©RMTSK 


1CD7 ©RPTSK 


1CEB 


©RREAD 


1473 ©RSLCT 


19D4 ©RST00 


0000 


©RST08 


0008 ©RST10 


0010 ©RST18 


0018 


©RST20 


0020 ©RST28 


0028 ©RST30 


0030 


©RST38 


0038 ©RSTNMI 


0FE9 ©RSTOR 


19C8 


©RSTREG 


0680 ©RUN 


IBID ©RWRIT 


13 AD 


©SEEK 


19D0 ©SEEKSC 


1421 ©SKIP 


1430 


©SLCT 


19BC ©SOUND 


0392 ©STEPI 


19CC 


©TIME 


078D ©USA 


FFFF ©VDCTL 


0B99 


©VDCTL3 


0D38 ©VER 


1560 ©VRSEC 


19DC 
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0WEOF 


14EC (9WHERE 


1979 0WRITE 


1531 


GWRSEC 


19E8 @WRSSC 


19EC 0WRTRK 


19F0 


VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AFREG 


00A8 AHDSP 


2013 AHGET 


2029 


ATOF 


220D AUTO? 


1FF1 BAR$ 


0201 


BL01 


2257 BL02 


226C BL03 


2276 


BL04 


227B BLOCK 


223F BOOTST$ 


439D 


BREAK? 


1C60 BRKVEC$ 


1C88 BUR$ 


0200 


CASHK$ 


0A7B CFCB$ 


00E0 CFGFCB$ 


00E0 


CFLAG$ 


006C CKMOD0 


1A7F CKOPEN0 


1568 


CMD AH 


1FD6 CMD C 


1E81 CMD CI 


208B 


CMD D 


1EAB CMD DEC 


1EC9 CMD G 


1F82 


CMD INC 


1EB1 CMD 


1ECE CMD R 


203F 


CMD S 


1E9D CMD U 


1EA1 CMD X 


1E9C 


CMND 


1E4C CONFIG$ 


203F CORES 


0300 


CRTBGN$ 


F800 CV2HEXI3 


221A CVB 


2200 


CYL GRN 


16AE D0FBYT8 


1A26 DATES 


0033 


DAYTBU 


04C7 DBGSV$ 


00A0 DCBKL$ 


0031 


DCT$ 


0470 DCTBYT8@ 


1A29 DCTFLDia 


1A34 


DFLAG$ 


006D DIRBUF$ 


2300 DIS1 


22FB 


DIS10 


2396 DISH 


239D DIS12 


23A2 


DIS2 


2305 DIS3 


231B DIS4 


2328 


DIS6 


2346 DIS7 


2353 DIS8 


235F 


DIS8A 


2368 DIS9 


237B DISKIO 


22DF 


DIS DO RAM 


0846 DODATA$ 


0B94 DODCB$ 


0210 


DO CONTROL 


0C44 DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C 


DO INVERT ENA 


0C89 DO INVERT OFF 


0C9B DO MASK 


0000 


DO RET 


0BCB DO RET1 


0BCC DO SCROLL 


0CCE 


DO TABS 


0BEA DSKTYP$ 


04C0 DSPADR 


00A6 


DSPASC0 


201B DTPMT$ 


04C2 DVRENDS 


0FF4 


DVRHB 


0206 ED TAB 


2150 EFLAG$ 


006 E 


ENADIS DO RAM 


0817 EXTDBG 


22DB EXTDBG$ 


19A4 


FDDINTI 


000E FEMSK$ 


006F FIL1 


C. Ct\C 


FILL 


228B FLGTAB$ 


006A FLGTBL 


1F7A 


FULDSP 


1F4D GETASCG 


2031 GET @ ROWCOL 


0DAE 


GRPHIC 


21A4 HERTZ$ 


0750 HEXTN¥ 


21E4 


HIGH$ 


040E HKRES$ 


1A6C HLREG 


00AE 


IFLAG$ 


0072 INBUF$ 


0420 INPUC0 


21D5 


INPUTS 


21C9 INTIM$ 


003C INTMSK$ 


003D 


INTVC$ 


003E IXREG 


00B8 IYREG 


00BA 


JCLCB$ 


0203 JDCB$ 


0024 JFCB$ 


00C0 


JLDCB$ 


0230 JRET$ 


0026 JUMP 


22AB 


KCK@ 


07D6 KFLAG$ 


0074 KIDATAS 


08FC 


KIDCB$ 


0208 LAST 


23BD LBANKS 


0202 


LDRV$ 


0023 LFLAG$ 


0075 LNKFCB0 


1566 


LOW$ 


001E LSVC$ 


000D MAXCORS 


2400 


MAXDAY$ 


0401 MINCOR$ 


3000 MODOUT$ 


0076 


MONTBL$ 


04DC NFLAG$ 


0077 NOFLG 


1F2B 


NXTADR 


00A3 NXTBYT 


00A5 OPREG$ 


0078 


OPREG SV AREA 


086E OPREG SV PTR 


0835 OP TAB 


211F 


ORARET0 


14DC OSRLSI 


003B OSVER$ 


0085 


OVRLY$ 


0069 PAKNAM$ 


0410 PAUSED 


0382 


PCREG 


00BE PCSAVES 


07AF PDRV$ 


001 B 


PHIGH$ 


001C PRDCB$ 


0218 PUTAGDE 


0DCD 


PUT (3 


0DCA PUT @ ROWCOL 


0DC6 QUE1 


22CE 


QUERY 


22B7 REGSAV 


00BD REGTBL 


1F56 


RFLAG$ 


007B ROWCOL 2 ADDR 


0DD0 RST38@ 


1BFF 


RSTOR$ 


04C4 RWRITia 


13A2 S1DCB$ 


0238 


SAVONE 


00A0 SAVTWO 


00A1 SBUFF$ 


1D00 


SETGEXEC 


1A79 SET SCROLL 


0CF3 SFCB$ 


008C 


SFLAG$ 


007C SIDCB$ 


0220 SODCB$ 


0228 
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SPACE4$ 


2142 SPREG 


STARTS 


0000 SVCRETS 


SYS5 


1E00 SYSERRS 


TFLAG$ 


007D TIMES 


TIMSLS 


002B TIMTSK$ 


TRACE INT 


07B1 TYP3 


TYPHKl" 


0A8F TYPTSKS 


VFLAG$ 


007F WR1HEX@ 


WR3BYT 


2235 WRHEX 


WRMEM 


2173 WRREGS 


XY_TAB 


2157 ZEROS 


1E00 is the 


transfer address 


00000 Total 


errors 



SYS5 - LS-DOS 6.2 

00BC STACKS 0380 

000B SVCTABS 0100 

1B13 TCBS 004E 

002D TIMERS 002C 

0713 TMPMTS 04C3 

2024 TYP4 2026 

0B26 USTORS 0013 

2211 WR2HEX@ 2215 

222E WRINTS 0080 

1ED5 WRSPA0 2231 

0401 ZEROAIP 13A0 
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SYS9/SYS 

SYS9 is the extended system debugger. It resides in high memory, and handles 
additional functions that require more memory than was available for SYS5, which had 
to reside in the overlay region. There are no SVCs directly handled by SYS9. 
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Page 00001 



0000 



00100 ;SYS9/ASM - LS-DOS 6.2 

00110 TITLE <SYS9 - LS-DOS 6.2> 

00120 ; 

00130 *LIST OFF ;Get SYS5/EQU 

00150 *LIST ON 

00160 *GET COPYCOM:3 ;Copyright message 

03740 ; COPYCOM - File for Copyright COMment block 

03750 ; 



0000 


03760 


COM 


•<*(C) 1982,83,84 by LSI*>' 




03770 ; 








00A0 


00170 
00180 ; 


ORG 


0A0H 




0001 


00190 SAVONE 


DS 


1 




0001 


00200 SAVTWO 


DS 


1 




0001 


00210 


DS 


1 


;Space for saved byte (1 


0002 


00220 NXTADR 


DS 


2 




0001 


00230 NXTBYT 


DS 


1 




0002 


00240 DSPADR 


DS 


2 




0006 


00250 AFREG 


DS 


6 


;AF, BC, DE 


0002 


00260 HLREG 


DS 


2 


;HL 


0008 


00270 


DS 


8 


;AF', BC, DE', HL' 


0002 


00280 IXREG 


DS 


2 


;ix 


0002 


00290 IYREG 


DS 


2 


;IY 


0001 


00300 SPREG 


DS 


1 


;SP 


0001 


00310 REGSAV 


DS 


1 




0002 


00320 PCREG 
00330 ; 


DS 


2 


;PC 


1E00 


00340 
00350 ; 


ORG 


1E00H 




1E00 E670 


00360 SYS9 


AND 


70H 




1E02 C8 


00370 


RET 


Z 


.Back on zero entry 


1E03 2AA419 


00380 


LD 


HL,(EXTDBG$) 


,P/u hook address 


1E06 AF 


00390 


XOR 


A 


,See if already resident 


1E07 1124EB 


00400 


LD 


DE,-ORARET@ 




1E0A ED5A 


00410 


ADC 


HL,DE 


ADD does not effect Z 


1E0C C0 


00420 


RET 


NZ 


Ret if resident already 


1E0D 2A0E04 


00430 


LD 


HL,(HIGH$) 


Change high$ to provide 


1E10 222B1E 


00440 


LD 


(DEBUGE+2),HL , 


Stuff last byte used 


1E13 015602 


00450 


LD 


BC,LAST-DEBUGE , 


Room for relocating 


1E16 AF 


00460 


XOR 


A ; 


this module to high 


1E17 ED42 


00470 


SBC 


HL,BC 




1E19 220E04 


00480 


LD 


(HIGH$),HL 




1E1C 23 


00490 


INC 


HL ; 


Pt to new entry point 


1E1D E5 


00500 


PUSH 


HL ; 


Save it for later 


1E1E EB 


00510 


EX 


DE,HL ; 


Move extended debug 


1E1F 21291E 


00520 


LD 


HL, DEBUGE ; 


up to top of core 


1E22 EDB0 


00530 


LDIR 






1E24 El 


00540 


POP 


HL ; 


Rcvr pointer to ept 


1E25 22A419 


00550 


LD 


(EXTDBG$),HL ; 


& reset sysres vector 


1E28 C9 


00560 
00570 ; 


RET 








00580 ; 


Start 


of extended debug i 


til i ty 




00590 ; 








1E29 180D 


00600 DEBUGE 


JR 


NEXT 




1E2B 0000 


00610 


DW 


$-$ 




1E2D 06 


00620 


DB 


6,'EXTDBG' 




45 58 54 


44 42 47 








1E34 0000 


00630 


DW 


0,0 




0000 


00640 ; 










00650 ; 


'n'ext 


aaaa - position to 


next relative block 
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00660 ; 


used 


in stepping through a program file 




00670 ; 


dumped to core in 


load module format 




00680 ; 








1E38 FE3E 


00690 NEXT 


CP 


'n'-'0' 




1E3A 201D 


00700 


JR 


NZ, ENTER 




1E3C 2AA300 


00710 


LD 


HL,(NXTADR) 


;Init if no further input 


1E3F CDE421 


00720 


CALL 


HEXING 


;Arg aaaa entered? 


1E42 23 


00730 


INC 


HL 


;Bump from type to length 


1E43 1600 


00740 


LD 


D,0 




1E45 5E 


00750 


LD 


E,(HL) 


;P/u block length 


1E46 7B 


00760 


LD 


A,E 




1E47 FE03 


00770 


CP 


3 


;Len= 0,1,2? 


1E49 3001 


00780 


JR 


NC,NEX1 


;If len=0,l,2 (256-8), 


1E4B 14 


00790 


INC 


D 


; next block is +257-259 


1E4C 13 


00800 NEX1 


INC 


DE 


;Bump by one for len byte 


1E4D 19 


00810 


ADD 


HL,DE 


;Add length to index 


1E4E 22A300 


00820 


LD 


(NXTADR),HL 


;Next block 


1E51 7D 


00830 


LD 


A,L 


;Now set up the display 


1E52 E6C0 


00840 


AND 


0C0H 


;Address 


1E54 6F 


00850 


LD 


L,A 




1E55 22A600 


00860 


LD 


(DSPADR),HL 




1E58 C9 


00870 
00880 ; 


RET 








00890 ; 


Enter 


hex data into 


memory 




00900 ; 








1E59 FE35 


00910 ENTER 


CP 


•e'-'0' 


;'e'nter <addr> 


1E5B 202F 


00920 


JR 


NZ, LOCATE 




1E5D 2AA300 


00930 


LD 


HL,(NXTADR) 


;Pt to current address 


1E60 CDE421 


00940 


CALL 


HEXING 


;Get new address to enter 


1E63 22A300 


00950 


LD 


(NXTADR),HL 




1E66 D8 


00960 


RET 


C 


;Back on <ENTER> 


1E67 2006 


00970 


JR 


NZ,ENT1 


;Go if new addr 


1E69 CD1522 


00980 


CALL 


WR2HEXG 


; else dsply default 


1E6C CD3122 


00990 


CALL 


WRSPAG 




1E6F 3E1E 


01000 ENT1 


LD 


A,1EH 


;Clear the line 


1E71 CD4206 


01010 


CALL 


GDSP 




1E74 CD1122 


01020 ENT2 


CALL 


WRlHEXG 


;Set up the display 


1E77 2B 


01030 


DEC 


HL 




1E78 3E2D 


01040 


LD 


A,'-' 




1E7A CD4206 


01050 


CALL 


GDSP 




1E7D EB 


01060 


EX 


DE,HL 




1E7E CDE421 


01070 


CALL 


HEXING 


;Get the modify info 


1E81 EB 


01080 


EX 


DE,HL 




1E82 2801 


01090 


JR 


Z,ENT3 


;No change if no new data 


1E84 73 


01100 


LD 


(HL),E 


; else update byte 


1E85 D8 


01110 ENT3 


RET 


C 


;Back if <ENTER> pressed 


1E86 23 


01120 


INC 


HL 




1E87 22A300 


01130 


LD 


(NXTADR),HL 


; Index to next address 


1E8A 18E8 


01140 
01150 ; 


JR 


ENT2 






01160 ; 


1 1 'ocate aaaa,dd 






01170 ; 








1E8C FE3C 


01180 LOCATE 


CP 


'l'-'fl' 




1E8E 2043 


01190 


JR 


NZ,TYPE 




1E90 2AA300 


01200 


LD 


HL,(NXTADR) 


;Default current address 


1E93 23 


01210 


INC 


HL 




1E94 CDE421 


01220 


CALL 


HEXING 


;Prompt new address 


1E97 22A300 


01230 


LD 


(NXTADR),HL 




1E9A 200E 


01240 


JR 


NZ,LOCl 


;Go if new addr 


1E9C F5 


01250 


PUSH 


AF 


;Save flags 


1E9D CD1522 


01260 


CALL 


WR2HEXG 


;Display default 
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1EA0 3E2C 
1EA2 CD4206 
1EA5 Fl 
1EA6 3AA500 
1EA9 6F 
1EAA 380B 
1EAC CDE421 
1EAF 2806 
1EB1 7D 
1EB2 32A500 
1EB5 1804 
1EB7 7D 
1EB8 CD1A22 
1EBB 2AA300 
1EBE 3AA500 
1EC1 010000 
1EC4 EDB1 
1EC6 C0 
1EC7 2B 
1EC8 22A300 
1ECB 7D 
1ECC E6C0 
1ECE 6F 
1ECF 22A600 
1ED2 C9 



1ED3 FE44 
1ED5 2030 
1ED7 2AA300 
1EDA CDE421 
1EDD 22A300 
1EE0 D8 
1EE1 2003 
1EE3 CD1522 
1EE6 3E1E 
1EE8 CD4206 
1EEB CD3122 
IEEE CD1B20 
1EF1 3E2D 
1EF3 CD4206 
1EF6 E5 
1EF7 CD3120 
1EFA El 
1EFB 08 
1EFC FE20 
1EFE 2801 
1F00 77 
1F01 23 
1F02 22A300 
1F05 18E4 



1F07 FE46 
1F09 2057 
1F0B 2AA600 
1F0E CDE421 
1F11 22A600 
1F14 200A 



01270 

01280 

01290 

01300 

01310 

01320 LOCI 

01330 

01340 

01350 

01360 

01370 

01380 L0C2 

01390 

01400 L0C3 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 ; 

01530 ; 

01540 ; 

01550 TYPE 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 TYP1 

01640 

01650 TYP2 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 TYP5 

01770 

01780 

01790 

01800 

01810 

01820 VERIFY 

01830 

01840 

01850 

01860 

01870 



LD 

CALL 

POP 

LD 

LD 

JR 

CALL 

JR 

LD 

LD 

JR 

LD 

CALL 

LD 

LD 

LD 

CPIR 

RET 

DEC 

LD 

LD 

AND 

LD 

LD 

RET 



GDSP 

AF 

A,(NXTBYT) 

L,A 

C.L0C2 

HEXING 

Z.L0C2 

A,L 

(NXTBYT) S A 

L0C3 

A,L 

CV2HEXG 

HL,(NXTADR) 

A,(NXTBYT) 

BC,0 

NZ 

HL 

(NXTADR),HL 

A,L 

0C0H 

L,A 

(DSPADR),HL 



;P/u default byte 

;Go if <ENTER> used 
; else get new byte 
;Go if none entered 

; else set byte to find 

;Di splay byte info 

;Set up for search 

;Set loop to 64K 
;Find a match 
;Back if none 

;Store new mod addr 



* t'ype aaaa - type ascii into memory 



CP 

JR 

LD 

CALL 

LD 

RET 

JR 

CALL 

LD 

CALL 

CALL 

CALL 

LD 

CALL 

PUSH 

CALL 

POP 

RET 

CP 

JR 

LD 

INC 

LD 

JR 



•t'-'fl' 

NZ, VERIFY 

HL,(NXTADR) 

HEXING 

(NXTADR),HL 

C 

NZ,TYPl 

WR2HEXG 

A,1EH 

GDSP 

WRSPAG 

DSPASCG 

A '- ' 

GDSP 

HL 

GETASCG 

HL 

C 

20H 

Z,TYP5 

(HL),A 

HL 

(NXTADR) S HL 

TYP2 



;Default current address 
;Prompt for new address 

;Back on <ENTER> 
;Go if new addr 
; else dsply default 
;Clear to end of line 



;Display current contents 

; Provide lower/upper 
; case entry 
; conversion 

;Advance on space 

; Store new info 

;Advance the location 



'v'erify aaaa, bbbb, 1th - verify block 



CP 

JR 

LD 

CALL 

LD 

JR 



NZ,W0RD 

HL,(DSPADR) 

HEXING 

(DSPADR),HL 

NZ,VER1 



;lst default start of dsp 
; Prompt new start 

;Go if address entered 
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1F16 F5 
1F17 CD1522 
1F1A 3E2C 
1F1C CD4206 
1F1F Fl 
1F20 3815 
1F22 2AA300 
1F25 CDE421 
1F28 22A300 
1F2B 200A 
1F2D F5 
1F2E CD1522 
1F31 3E2C 
1F33 CD4206 
1F36 Fl 
1F37 210000 
1F3A 380A 
1F3C CDE421 
1F3F 2005 
1F41 E5 
1F42 CD1522 
1F45 El 
1F46 44 
1F47 4D 
1F48 2AA600 
1F4B ED5BA300 
1F4F 1A 
1F50 BE 
1F51 2007 
1F53 13 
1F54 23 
1F55 0B 
1F56 78 
1F57 Bl 
1F58 20F5 
1F5A ED53A300 
1F5E 22A600 
1F61 C9 



1F62 FE47 
1F64 2052 
1F66 2AA300 
1F69 23 
1F6A 23 
1F6B CDE421 
1F6E 22A300 
1F71 2012 
1F73 F5 
1F74 CD1522 
1F77 3E2C 
1F79 CD4206 
1F7C Fl 
1F7D 3AA500 
1F80 6F 
1F81 3AA200 
1F84 67 
1F85 380F 
1F87 CDE421 
1F8A 280A 



01880 

01890 

01900 

01910 

01920 

01930 VER1 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 VER2 

02040 

02050 

02060 

02070 

02080 

02090 

02100 VER3 

02110 

02120 

02130 

02140 VER4 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 VER5 

02240 

02250 

02260 

02270 

02280 

02290 WORD 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 WOR1 

02470 

02480 



PUSH 

CALL 

LD 

CALL 

POP 

JR 

LD 

CALL 

LD 

JR 

PUSH 

CALL 

LD 

CALL 

POP 

LD 

JR 

CALL 

JR 

PUSH 

CALL 

POP 

LD 

LD 

LD 

LD 

LD 

CP 

JR 

INC 

INC 

DEC 

LD 

OR 

JR 

LD 

LD 

RET 



AF 
WR2HEXG 

A ' ' 

GDSP 

AF 

CVER2 

HL.(NXTADR) 

HEXING 

(NXTADR),HL 

NZ,VER2 

AF 

WR2HEXG 

A,V 

GDSP 

AF 

HL,0 

CVER3 

HEXING 

NZ,VER3 

HL 

WR2HEXG 

HL 

B,H 

C,L 

HL.(DSPADR) 

DE.(NXTADR) 

A,(DE) 

(HL) 

NZ.VER5 

DE 

HL 

BC 

A,B 

C 

NZ.VER4 

(NXTADR),DE 

(DSPADR),HL 



else dsply default 



;Jump if <ENTER> used prev. 
;2nd default current mod addr 
;Prompt new 2nd start 

;Go if entered 

; else dsply default 



;Default length to verify 
;Go if <ENTER> sued prev 
;Get new length 
;Go if new len entered 

;Dsply default len 

;Xfer length to BC 

;Set up for compare 



Compare the two locations 

Go on non-match 
else inc pointers 
and loop for length 



;Store non-match or end of 
; block 



'w'ord aaaa,dddd - search for word dddd 



CP 

JR 

LD 

INC 

INC 

CALL 

LD 

JR 

PUSH 

CALL 

LD 

CALL 

POP 

LD 

LD 

LD 

LD 

JR 

CALL 

JR 



•w'-'0« 

NZ, PRINT 

HL.(NXTADR) 

HL 

HL 

HEXING 

(NXTADR).HL 

NZ,WORl 

AF 

WR2HEXG 

A,V 

GDSP 

AF 

A,(NXTBYT) 

L,A 

A,(SAVTW0+1) 

H,A 

CW0R2 

HEXING 

Z,WOR2 



;Default current address 
; but bypass next word 

;Get new start 

;Go if value entered 
; else display default 



;Get next default 



;Go if <ENTER> 
;Get next value 
;Go if default 
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1F8C 7D 


02490 


LD 


A,L 


;Store new value 


1F8D 32A500 


02500 


LD 


(NXTBYT),A 




1F90 7C 


02510 


LD 


A,H 




1F91 32A200 


02520 


LD 


(SAVTWO+l) s A 




1F94 1803 


02530 


JR 


WOR3 




1F96 CD1522 


02540 WOR2 


CALL 


WR2HEX0 


;Display value 


1F99 2AA300 


02550 W0R3 


LD 


HL,(NXTADR) 


;Start looking here 


1F9C 010000 


02560 " 


LD 


BC,0 


; I n i t count to 64K 


1F9F 3AA500 


02570 W0R4 


LD 


A.(NXTBYT) 




1FA2 EDB1 


02580 


CPIR 




;Find first match 


1FA4 C0 


02590 


RET 


NZ 


;Return if none 


1FA5 3AA200 


02600 


LD 


A,(SAVTWO+l) 


;Get 2nd half of word 


1FA8 BE 


02610 


CP 


(HL) 


;Is a match? 


1FA9 20F4 


02620 


JR 


NZ,W0R4 


;Continue if not 


1FAB 2B 


02630 


DEC 


HL 




1FAC 2B 


02640 


DEC 


HL 


;Pt 1 byte before 


1FAD 22A300 


02650 


LD 


(NXTADR),HL 


; and save that address 


1FB0 7D 


02660 


LD 


A,L 




1FB1 E6C0 


02670 


AND 


0C0H 




1FB3 6F 


02680 


LD 


L,A 




1FB4 22A600 


02690 


LD 


(DSPADR),HL 


;New display start 


1FB7 C9 


02700 
02710 ; 


RET 








02720 ; 


'p'rint 


; aaaa s bbbb - pr 


int memory 




02730 ; 








1FB8 FE40 


02740 PRINT 


CP 


'p'-30H 


;If command is not ' P' s 


1FBA C0 


02750 PRI1 


RET 


NZ 


; back to SYS5 


1FBB CDE421 


02760 


CALL 


HEXIN0 


;Get start 


1FBE C8 


02770 


RET 


Z 


;Back if no start addr 


1FBF E5 


02780 


PUSH 


HL 




1FC0 CDE421 


02790 


CALL 


HEXIN0 


;Get end 


1FC3 E3 


02800 


EX 


(SP).HL 




1FC4 CI 


02810 


POP 


BC 


;Start in HL, end in BC 


1FC5 C8 


02820 


RET 


Z 


;Back if no end addr 


1FC6 7D 


02830 


LD 


A,L 


;Round to multiple of 16 


1FC7 E6F0 


02840 


AND 


0F0H 




1FC9 6F 


02850 


LD 


L,A 




1FCA 3E0D 


02860 


LD 


A,0DH 


;Send 2 blank lines to 


1FCC CD3D06 


02870 . 


CALL 


@PRT 


; the printer 


1FCF CD3D06 


02880 


CALL 


(3PRT 




1FD2 E5 


02890 PRI2 


PUSH 


HL 


;Routine to write HL 


1FD3 7C 


02900 


LD 


A,H 


; as 4 hex digits 


1FD4 IF 


02910 


RRA 






1FD5 IF 


02920 


RRA 






1FD6 IF 


02930 


RRA 






1FD7 IF 


02940 


RRA 






1FD8 E60F 


02950 


AND 


0FH 




1FDA C690 


02960 


ADD 


A,90H 




1FDC 27 


02970 


DAA 






1FDD CE40 


02980 


ADC 


A,40H 




1FDF 27 


02990 


DAA 






1FE0 CD3D06 


03000 


CALL 


@PRT 


;lst one done 


1FE3 7C 


03010 


LD 


A,H 




1FE4 E60F 


03020 


AND 


0FH 




1FE6 C690 


03030 


ADD 


A,90H 




1FE8 27 


03040 


DAA 






1FE9 CE40 


03050 


ADC 


A,40H 




1FEB 27 


03060 


DAA 






1FEC CD3D06 


03070 


CALL 


@PRT 


;2nd one done 


1FEF 7D 


03080 


LD 


A,L 




1FF0 IF 


03090 


RRA 







Page 232 



The Source 



SYSTEM Files 



SYS9 - LS-DOS 6.2 



Page 00006 



1FF1 IF 
1FF2 IF 
1FF3 IF 
1FF4 E60F 
1FF6 C690 
1FF8 27 
1FF9 CE40 
1FFB 27 
1FFC CD3D06 
1FFF 7D 
2000 E60F 
2002 C690 

2004 27 

2005 CE40 

2007 27 

2008 CD3D06 
200B 3E20 
200D CD3D06 
2010 CD3D06 
2013 1802 
2015 18BB 



2017 7E 

2018 IF 

2019 IF 
201A IF 
201B IF 
201C E60F 
201E C690 

2020 27 

2021 CE40 

2023 27 

2024 CD3D06 

2027 7E 

2028 E60F 
202A C690 
202C 27 
202D CE40 
202F 27 
2030 CD3D06 
2033 3E20 
2035 CD3D06 

2038 23 

2039 7D 
203A E60F 
203C 2809 
203E E603 

2040 3E20 
2042 CC3D06 
2045 18D0 
2047 3E20 

2049 CD3D06 
204C El 
204D 7E 
204E FE20 

2050 3804 
2052 FE80 
2054 3802 
2056 3E2E 



03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 PR 13 

03310 ; 

03320 ; 

03330 ; 

03340 PR 14 

03350 

03360 

03370 

03380 

03390' 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03480 

03490 

03500 

03510 

03520 

03530 

03540 

03550 

03560 

03570 

03580 

03590 

03600 

03610 

03620 PRI5 

03630 

03640 

03650 PR 16 

03660 

03670 

03680 

03690 

03700 PRI7 



RRA 

RRA 

RRA 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

CALL 

CALL 

JR 

JR 



0FH 
A S 90H 

A 9 40H 

@PRT 
A,L 
0FH 
A S 90H 

A,40H 

@PRT 

A,20H 

@PRT 

(3PRT 

PRI4 

PR 12 



LD 

RRA 

RRA 

RRA 

RRA 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

AND 

ADD 

DAA 

ADC 

DAA 

CALL 

LD 

CALL 

INC 

LD 

AND 

JR 

AND 

LD 

CALL 

JR 

LD 

CALL 

POP 

LD 

CP 

JR 

CP 

JR 

LD 



A,(HL) 



0FH 
A,90H 

A,40H 

(aPRT 
A,(HL) 
0FH 
A S 90H 

A,40H 

G»PRT 

A,20H 

(3PRT 

HL 

A,L 

0FH 

Z,PRI5 

3 

A,20H 

Z,@PRT 

PRI4 

A,20H 

(3PRT 

HL 

A,(HL) 

20H 

C.PRI7 

80H 

C.PRI8 

A,'.' 



;3rd one done 



;4th one done 
; & 2 spaces 



Write a byte in hex 



;Output it 



;Output it 

; & a space 
;Pt to next byte 
;Test multiple of 16 



;Space on multiple of 4 



;Space at end of 16 



Print in ASCII if 
printable; else 
convert to ' . ' 
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205B 23 
205C 7D 
205D E60F 
205F 20EC 
2061 3E0D 
2063 CD3D06 

2066 E5 

2067 7D 

2068 B4 

2069 2003 
206B El 
206C 1806 
206E AF 
206F ED42 

2071 El 

2072 38A1 
2074 3E0D 
2076 CD3D06 
2079 CD3D06 
207C C33D06 
207F 



23FE 
23FE 7F02 



SYSTEM Files 



1E00 



03710 PR 18 

03720 

03730 

03740 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 

03840 PR 1 9 

03850 

03860 

03870 

03880 PRI10 

03890 

03900 

03910 

03920 LAST 

03930 

03940 

03950 

03960 

03970 

03980 ; 

03990 



CALL 

INC 

LD 

AND 

JR 

LD 

CALL 

PUSH 

LD 

OR 

JR 

POP 

JR 

XOR 

SBC 

POP 

JR 

LD 

CALL 

CALL 

JP 

EQU 

IFGT 

ERR 

ENDIF 

ORG 

DW 

END 
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;Loop until 16 chars 



@PRT 

HL 

A,L 

0FH 

NZ,PRI6 

A,0DH 

@PRT 

HL 

A 9 L 

H 

NZ,PRI9 

HL 

PRI10 

A 

HL,BC 

HL 

C,PRI3 

A s 0DH 

@PRT 

@PRT 

@PRT 

$ 

$,DIRBUF$ 

'Module too big' 

MAXCOR$-2 
LAST-SYS9 

SYS9 



then a new line 



;Check if HL is 

; is OK > continue 

;Get OUT now 
;Ck on finished 

;3 new lines if done 



;Overlay size 
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$?1 


1E32 $?10 


$?12 


1F38 $?13 


$?15 


1F9F $?16 


$?18 


1FDF $?19 


$?20 


2057 $?21 


$?23 


2062 $?24 


$?26 


20A9 $?27 


$?28A 


20F1 $?29 


$?30 


20F9 $?31 


$?33 


210B $?34 


$?36 


2180 $?37 


$?39 


219C $?4 


$?41 


21C3 $?42 


$?44 


21E1 $?45 


$?47 


222B $?48 


$?6 


1EC5 $?8 


$A1 


03B7 $A2 


$CKE0F 


1470 ©$SYS 


(9(32 


0000 ©©3 


©ABORT 


1B08 ©ADTSK 


©BKSP 


1486 ©BREAK 


©CHNIO 


0689 ©CKBRKC 


©CKEOF 


158F ©CKTSK 


©CLS 


0545 ©CMNDI 


©CTL 


0623 ©DATE 


©DCINIT 


19C0 ©DCRES 


©DCTBYT 


1A2B ©DEBUG 


©DIRCYL 


18F7 ©DIRRD 


©DIV16 


06E3 ©DIV8 


©DOKEY 


19A9 ©DSP 


©ERROR 


1B0F ©EXIT 


©FLAGS 


196 A ©FNAME 


©FSPEC 


1981 ©GATRD 


©GERMAN 


0000 ©GET 


©GTDCT 


1A1E ©GTMOD 


©HEX16 


07BD ©HEX8 


©HIGH$ 


1948 ©HITRD 


©HZ50 


0000 ©ICNFG 


©INTL 


0000 ©I PL 


©KBD 


0635 ©KEY 


©KITSK 


0089 ©KLTSK 


©LOC 


14B3 ©LOF 


©LOGOT 


0500 ©MOD2 


©MSG 


0530 ©MUL16 


©NMI 


0066 ©OPEN 


©PARAM 


1987 ©PAUSE 


©POSN 


1434 ©PRINT 


©PUT 


0645 ©RAMDIR 


©RDSEC 


19F4 ©RDSSC 


©READ 


1513 ©REMOVE 


©REW 


149B ©RMTSK 


©RREAD 


1473 ©RSLCT 


©RST08 


0008 ©RST10 


©RST20 


0020 ©RST28 


©RST38 


0038 ©RSTNMI 


©RSTREG 


0680 ©RUN 


©SEEK 


19D0 ©SEEKSC 


©SLCT 


19BC ©SOUND 


©TIME 


078D ©USA 


©VDCTL3 


0D38 ©VER 
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1F1D $?11 1F2E 

1F8F $?14 1F9B 

1FA4 $?17 1FC5 

200F $?2 1E37 

205C $?22 2061 

2066 $?25 20A6 

20AA $?28 20B7 

20F6 $?3 1E49 

20FC $?32 2102 

2117 $?35 211A 

218E $?38 219A 

1EB4 $?40 21BF 

21C7 $?43 21CA 

21EB $?46 2223 

223B $?5 1EC4 

IEEE $?9 1F16 

03B8 $A3 03B9 

08F0 ©©1 0000 

0000 @@4 0000 

1CDA ©BANK 0877 

196F ©BYTE 10 1300 

0553 ©CKDRV 1993 

1CF5 ©CLOSE 1999 

197E ©CMNDR 197B 

07A8 ©DBGHK 199F 

19C4 ©DCSTAT 19B5 

19A0 ©DECHEX 03E1 

18BB ©DIRWR 1803 

1927 ©DODIR 19AF 

0642 ©DSPLY 052D 

1B0B ©FEXT 1984 

199C ©FRENCH 0000 

1874 ©GATWR 1875 

0638 ©GTDCB 1990 

19B2 ©HDFMT 19E4 

07C2 ©HEXDEC 06F6 

1897 ©HITWR 1898 

0086 ©INIT 198D 

1BF2 ©JCL 0630 

0628 ©KEYIN 0585 

1CD0 ©LOAD 1B38 

14DE ©LOGER 0503 

0000 ©M0D4 FFFF 

06C9 ©MUL8 190A 

198A ©OPREG 0084 

0382 ©PEOF 14A2 

0528 ©PRT 063D 

19AC ©RDHDR 19D8 

18D8 ©RDTRK 19E0 

19A6 ©RENAME 1996 

1CD7 ©RPTSK 1CEB 

19D4 ©RST00 0000 

0010 ©RST18 0018 

0028 ©RST30 0030 

0FE9 ©RSTOR 19C8 

IBID ©RWRIT 13AD 

1421 ©SKIP 1430 

0392 ©STEPI 19CC 

FFFF ©VDCTL 0B99 

1560 ©VRSEC 19DC 



Page 
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Page 00009 


0WEOF 


14EC 0WHERE 


1979 @WRITE 


1531 


@WRSEC 


19E8 @WRSSC 


19EC 0WRTRK 


19F0 


@ VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AFREG 


00A8 AUTO? 


1FF1 BARS 


0201 


BOOTST$ 


439D BREAK? 


1C60 BRKVEC$ 


1C88 


BUR$ 


0200 CASHK$ 


0A7B CFCB$ 


00E0 


CFGFCB$ 


00E0 CFLAG$ 


006C CKMOD0 


1A7F 


CKOPEN0 


1568 CMD AH 


1FD6 CMD C 


1E81 


CMD CI 


208B CMD D 


1EAB CMD DEC 


1EC9 


CMD G 


1F82 CMD INC 


1EB1 CMD 


1ECE 


CMD R 


203F CMD S 


1E9D CMD U 


1EA1 


CMD X 


1E9C CONFIG$ 


203F CORES 


1948 


CRTBGN$ 


F800 CV2HEX0 


221A CYL GRN 


16AE 


D0FBYT8 


1A26 DATES 


0033 DAYTBLS 


04C7 


DBGSV$ 


00A0 DCBKL$ 


0031 DCTS 


0470 


DCTBYT8(3 


1A29 DCTFLD0 


1A34 DEBUGE 


1E29 


DFLAG$ 


006D DIRBUFS 


2300 DIS DO RAM 


0846 


DODATA$ 


0B94 DODCB$ 


0210 DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DSKTYP$ 


04C0 DSPADR 


00A6 DSPASC0 


201 B 


DTPMT$ 


04C2 DVREND$ 


0FF4 DVRHIS 


0206 


ED TAB 


2150 EFLAG$ 


006E ENADIS DO RAM 


0817 


ENTl 


1E6F ENT2 


1E74 ENT3 


1E85 


ENTER 


1E59 EXTDBGS 


19A4 FDDINTS 


000E 


FEMSK$ 


006F FLGTAB$ 


006A GETASC0 


2031 


GET @ ROWCOL 


0DAE HERTZ$ 


0750 HEXING 


21E4 


HIGH$ 


040E HKRES$ 


1A6C HLREG 


00AE 


IFLAG$ 


0072 INBUF$ 


0420 INPUC@ 


21D5 


INPUTS 


21C9 INTIM$ 


003C INTMSKS 


003 D 


INTVC$ 


003E IXREG 


00B8 IYREG 


00BA 


JCLCB$ 


0203 JDCB$ 


0024 JFCBS 


00C0 


JLDCB$ 


0230 JRET$ 


0026 KCK(<» 


07D6 


KFLAG$ 


0074 KIDATAS 


08FC KIDCBS 


0208 


LAST 


207F LBANK$ 


0202 LDRVS 


0023 


LFLAG$ 


0075 LNKFCBG 


1566 LOCI 


1EAA 


LOC2 


1EB7 L0C3 


1EBB LOCATE 


1E8C 


LOW$ 


001E LSVC$ 


000D MAXCORS 


2400 


MAXDAY$ 


0401 MINCOR$ 


3000 MODOUTS 


0076 


MONTBL$ 


04DC NEX1 


1E4C NEXT 


1E38 


NFLAG$ 


0077 NXTADR 


00A3 NXTBYT 


00A5 


OPREG$ 


0078 OPREG SV AREA 


086E OPREG SV PTR 


0835 


OP TAB 


211F ORARET0 


14DC OSRLSI 


003B 


OSVER$ 


0085 OVRLY$ 


0069 PAKNAMS 


0410 


PAUSED 


0382 PCREG 


00BE PCSAVES 


07AF 


PDRV$ 


001B PHIGH$ 


001C PRDCBS 


0218 


PRI1 


1FBA PRI10 


2074 PR 12 


1FD2 


PRI3 


2015 PRI4 


2017 PRI5 


2047 


PR 16 


204D PRI7 


2056 PRI8 


2058 


PRI9 


206E PRINT 


1FB8 PUTA0DE 


0DCD 


PUT @ 


0DCA PUT @ ROWCOL 


0DC6 REGSAV 


00BD 


RFLAG$ 


007B ROWCOL 2 ADDR 


0DD0 RST38I3 


1BFF 


RSTOR$ 


04C4 RWRIT@ 


13A2 S1DCBS 


0238 


SAVONE 


00A0 SAVTWO 


00A1 SBUFFS 


1D00 


SET0EXEC 


1A79 SET SCROLL 


0CF3 SFCBS 


008C 


SFLAG$ 


007C SIDCB$ 


0220 SODCBS 


0228 


SPACE4S 


2142 SPREG 


00BC STACKS 


0380 


STARTS 


0000 SVCRET$ 


000B SVCTABS 


0100 


SYS9 


1E00 SYSERRS 


1B13 TCBS 


004E 


TFLAG$ 


007D TIMES 


002D TIMERS 


002C 
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TIMSL$ 


002B TIMTSK$ 


TRACE INT 


07B1 TYP1 


TYP5 


1F01 TYPE 


TYPTSK$ 


0B26 USTOR$ 


VER2 


1F37 VER3 


VER5 


1F5A VERIFY 


W0R1 


1F85 W0R2 


W0R4 


1F9F WORD 


WR2HEX0 


2215 WRINT$ 


XY TAB 


2157 ZEROS 



SYS9 - LS-DOS 6.2 

0713 TMPMT$ 04C3 

1EE6 TYP2 1EEB 

1ED3 TYPHK$ 0A8F 

0013 VER1 1F20 

1F46 VER4 1F4F 

1F07 VFLAG$ 007F 

1F96 WOR3 1F99 

1F62 WR1HEX0 2211 

0080 WRSPA@ 2231 

0401 ZEROA@ 13A0 



Page 00010 



1E00 is the transfer address 
00000 Total errors 
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SYS10/SYS 

SYS10/SYS will kill a file or a device. It contains code for the SVC 0REMOV, 
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Page 00001 



0000 



0000 



1E00 

1E00 
1E02 
1E03 
1E05 
1E06 
1E07 
1E09 
1E0B 
1E0E 
1E11 
1E13 
1E15 
1E17 
1E19 
1E1A 
1E1B 
1E1E 
1E21 
1E24 
1E27 
1E28 
1E2A 
1E2B 
1E2C 
1E2D 
1E2E 
1E2F 
1E33 
1E34 
1E36 
1E38 
1E39 
1E3C 



E670 

C8 

FE10 

C0 

1A 

CB7F 

2860 

CD6815 

DD7E01 

E607 

FE02 

3804 

3E25 

B7 

C9 

DD4E06 

DD4607 

CD7418 

CCBB18 

C0 

3E16 

85 

6F 

5E 

2C 

56 

ED53541E 

7B 

FEFE 

3006 

2C 

CD891E 

18EE 



1E3E 
1E3F 
1E41 
1E42 
1E44 
1E47 
1E4A 
1E4C 
1E4D 
1E4F 



7D 

E6E0 

6F 

CBA6 

CD0318 

CC9718 

261D 

68 

3600 

CC9818 



00100 

00110 

00120 

00130 

00140 

00150 

00170 

00180 

03010 

03020 

03030 

03040 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 



;SYS10/ASM - LS-DOS 6.2 

TITLE <SYS10 - LS-DOS 6.2> 



CR 



EQU 



13 



;Get SYS0/EQU 



*LIST OFF 

*LIST ON 

*GET COPYCOM:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



COM 



ORG 

SYS10 AND 
RET 
CP 
RET 
LD 
BIT 
JR 

CALL 
LD 
AND 
CP 
JR 
LD 
OR 
RET 

REMOV1 LD 
LD 
CALL 

REMOV2 CALL 
RET 
LD 
ADD 
LD 

REMOV3 LD 
INC 
LD 
LD 
LD 
CP 
JR 
INC 
CALL 
JR 



<*(C) 1982,83,84 by LSI*>' 



1E00H 

70H 

Z 

10H 

NZ 

A,(DE) 

7 S A 

Z,CLOSDCB 

CKOPEN(9 

A,(IX+1) 

7 

2 

C.REMOV1 

A,25H 

A 

CUX+6) 

B,(IX+7) 

0GATRD 

Z,(9DIRRD 

NZ 

A, 22 

A,L 

L,A 

E,(HL) 

L 

D,(HL) 

(EXTINFO+l),DE 

A,E 

0FEH 

NC.FIXDIR 

L 

RMVEXT 

REMOV3 



;Strip bit 7 
;Back on zero entry 
;Remove al 1 for now 
;Ret if any other entry 
;Test device/file 
;Fi le open or device? 
;Jump if device 
;Test for open file 
; & link the FCB to IX 
;Test for remove access 

;Jump if access granted 
: else init errcod 



;P/u drive # 

;P/u DEC 

;Read GAT => DIRBUF$ 

;Read dir for this DEC 

;Ret if read error 

;Point to 1st extent 



;P/u relative cylinder 

;P/u granule allocation 
;Modify later instruction 
;Ck if extent in use 

;Jump if not used 

;Deal locate ext from GAT 
;Loop to next extent 



Deallocated last extent; clean up directory 



FIXDIR LD 

AND 

LD 

RES 

CALL 

CALL 

LD 

LD 

LD 

CALL 



A,L 

0E0H 

L,A 

4,(HL) 

@DIRWR 

Z,(?HITRD 

H,SBUFF$<- 

L,B 

(HL),0 

Z,@HITWR 



;Point to 1st byte 
; of DIR entry 

;Show dir entry spare 
;Write the dir record 
;Grab HIT => SBUFF$ 
;Point to HIT entry 
; & zero out DEC pos 

;Write HIT back to disk 
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6.2 Page 00002 


1E52 C0 


00680 


RET 


NZ 


;Ret if read/write error 


1E53 110000 


00690 EXTINFC 
00700 ; 


LD 


DE,0 


;P/u last extent info 




00710 ; 


If ex 


tended directory r 


*ecord in use 9 




00720 ; 


D -> 


DEC of FXDE recon 


1 




00730 ; 


E -> 


FE if FXDE, FF if 


extent unused 




00740 ; 








1E56 42 


00750 


LD 


B,D 


;Ck for FXDE in use 


1E57 7B 


00760 


LD 


M 3 C. 




1E58 FEFE 


00770 


CP 


0FEH 


;X'FE' => FXDE in use 


1E5A 28C8 


00780 


JR 


Z,REMOV2 


;Jump if FXDE in use 


1E5C CD7518 


00790 


CALL 


0GATWR 


; else write the GAT 


1E5F C0 


00800 


RET 


NZ 


;Ret if write error 


1E60 DDE5 


00810 


PUSH 


IX 


;Transfer FCB address 


1E62 El 


00820 


POP 


HL 


; to HL & zero out FCB 


1E63 0620 


00830 


LD 


B,32 


; Ini t for 32 byte field 


1E65 AF 


00840 


XOR 


A 


;Zero the accumulator 


1E66 77 


00850 ZERLP1 


LD 


(HL),A 


;Go for it! 


1E67 23 


00860 


INC 


HL 




1E68 10FC 


00870 


DJNZ 


ZERLP1 




1E6A C9 


00880 
00890 ; 


RET 








00900 ; 


REMOVE wi 11 only close 


a logical device 




00910 ; 








1E6B FE10 


00920 CLOSDCB CP 


10H 


;Is this an open DCB? 


1E6D 3E26 


00930 


LD 


A, 38 


; Ini t "fi le not open 


1E6F C0 


00940 


RET 


NZ 




1E70 CD6615 


00950 


CALL 


LNKFCB0 


;Link to DCB (DE-MX) 


1E73 DD4E06 


00960 


LD 


CUX+6) 


;Get device name 


1E76 DD4607 


00970 


LD 


B,(IX+7) 




1E79 DD36002A 00980 


LD 


(IX+0),'*' 


;Stuff device indicator 


1E7D DD7101 


00990 


LD 


(IX+D.C 


;Stuff 1st char of name 


1E80 DD7002 


01000 


LD 


(IX+2),B 


;Stuff 2nd char of name 


1E83 DD360303 


01010 


LD 


(IX+3) S 3 


;Terminate with ETX 


1E87 AF 


01020 


XOR 


A 




1E88 C9 


01030 
01040 ; 


RET 








01050 ; 


Deal locate an extent 






01060 ; 








1E89 E5 


01070 RMVEXT 


PUSH 


HL 




1E8A C5 


01080 


PUSH 


BC 




1E8B 3E08 


01090 


LD 


A, 8 


;P/u the # of grans per 


1E8D CD2B1A 


01100 


CALL 


(9DCTBYT 


; cylinder into reg A 


1E90 07 


01110 


RLCA 




;Shift into bits 0-2 


1E91 07 


01120 


RLCA 






1E92 07 


01130 


RLCA 






1E93 E607 


01140 


AND 


7 


;Remove all else 


1E95 3C 


01150 
01160 ; 


INC 


A 


;Adjust for zero offset 




01170 ; 


Ck for 2-sided operation 




01180 ; 








1E96 6F 


01190 


LD 


L,A 


;Save current grans/cyl 


1E97 3E04 


01200 


LD 


A, 4 




1E99 CD2B1A 


01210 


CALL 


(3DCTBYT 


;Get 2-sided flag 


1E9C CB6F 


01220 


BIT 


5, A 


;Test 2-sided 


1E9E 7D 


01230 


LD 


A,L 


;Xfer value back 


1E9F 2801 


01240 


JR 


Z,$+3 


;Bypass if 1-sided 


1EA1 87 


01250 


ADD 


A, A 


; else multiply by 2 


1EA2 32BA1E 


01260 


LD 


(GRNSCYL+1),A 


;Modify later instruction 


1EA5 6B 


01270 


LD 


L,E 


;Relative cylinder -> L 


1EA6 2623 


01280 


LD 


H,DIRBUF$<-8 


; Point to GAT byte 
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1EA8 7 A 
1EA9 E61F 
1EAB 4F 
IE AC 0C 
IE AD AA 
1EAE 07 
1EAF 07 
1EB0 07 
1EB1 F5 
1EB2 46 
1EB3 CDC51E 
1EB6 70 
1EB7 Fl 
1EB8 3C 
1EB9 FE00 
1EBB 2002 
1EBD AF 
1EBE 2C 
1EBF 0D 
1EC0 20EF 
1EC2 CI 
1EC3 El 
1EC4 C9 



1EC5 E607 
1EC7 07 
1EC8 07 
1EC9 07 
1ECA F680 
1ECC 32D01E 
1ECF CB80 
1ED1 C9 



1ED2 



23FE 
23FE D200 



1E00 



01290 LD 

01300 AND 

01310 LD 

01320 INC 

01330 XOR 

01340 RLCA 

01350 RLCA 

01360 RLCA 

01370 RMVEX1 PUSH 

01380 LD 

01390 CALL 

01400 LD 

01410 POP 

01420 INC 

01430 GRNSCYL CP 

01440 JR 

01450 XOR 

01460 INC 

01470 DECGRNS DEC 

01480 JR 

01490 POP 

01500 POP 

01510 RET 

01520 ; 

01530 ; 

01540 ; 

01550 RMVGRN AND 

01560 RLCA 

01570 RLCA 

01580 RLCA 

01590 OR 

01600 LD 

01610 RMVGRNl RES 

01620 RET 

01630 ; 

01640 LAST EQU 

01650 IFGT 

01660 ERR 

01670 ENDIF 

01680 ORG 

01690 DW 

01700 ; 

01710 END 



A,D 

1FH 

C,A 

C 

D 



AF 

B,(HL) 

RMVGRN 

(HL),B 

AF 

A 



NZ S DECGRNS 

A 

L 

C 

NZ,RMVEX1 

BC 

HL 



Rel gran & # of grans 

Get # of grans 

into reg C & adjust 
for zero offset 

Get rel gran & shift 
into bits 0-2 



;Save rel starting gran 
;P/u allocation byte 
;Turn off bit for a gran 
[Update GAT byte 
;Recover starting gran 
;Bump up 

;Ck with grans per cyl 
;Go if still on this cyl 
; else zero gran counter 
;Bump to next cyl in GAT 
[Decrement # of grans 
;Go if more to deallocate 
; else recover regs 
; & go home 



Remove a bit to deallocate & free up a gran 



;Max 8-grans per cyl 
;Shift to create RES 



80H 

(RMVGRNl+l) s A 

0,B 



;Merge rest of RES code 
;Stuff into the inst 
;Reset proper bit 



$ S DIRBUF$ 
'Module too big' 

MAXC0R$-2 
LAST-SYS10 

SYS10 



;0verlay size 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 ©©1 


0000 


©©2 


0000 ©©3 


0000 @@4 


0000 


©ABORT 


1B08 ©ADTSK 


1CDA ©BANK 


0877 


©BKSP 


1486 ©BREAK 


196F ©BYTE 10 


1300 


©CHNIO 


0689 ©CKBRKC 


0553 ©CKDRV 


1993 


©CKEOF 


158F ©CKTSK 


1CF5 ©CLOSE 


1999 


©CLS 


0545 ©CMNDI 


197E ©CMNDR 


197B 


©CTL 


0623 ©DATE 


07A8 ©DBGHK 


199F 


©DCINIT 


19C0 ©DCRES 


19C4 ©DCSTAT 


19B5 


©DCTBYT 


1A2B ©DEBUG 


19A0 ©DECHEX 


03E1 


©DIRCYL 


18F7 ©DIRRD 


18BB ©DIRWR 


1803 


@DIV16 


06E3 ©DIV8 


1927 ©DODIR 


19AF 


©DOKEY 


19A9 ©DSP 


0642 ©DSPLY 


052D 


©ERROR 


1B0F ©EXIT 


1B0B ©FEXT 


1984 


©FLAGS 


196 A ©FNAME 


199C ©FRENCH 


0000 


©FSPEC 


1981 ©GATRD 


1874 ©GATWR 


1875 


©GERMAN 


0000 ©GET 


0638 ©GTDCB 


1990 


©GTDCT 


1A1E ©GTMOD 


19B2 ©HDFMT 


19E4 


©HEX16 


07BD ©HEX8 


07C2 ©HEXDEC 


06F6 


©HIGH$ 


1948 ©HITRD 


1897 ©HITWR 


1898 


©HZ50 


0000 ©ICNFG 


0086 ©INIT 


198D 


©INTL 


0000 ©I PL 


1BF2 ©JCL 


0630 


©KBD 


0635 ©KEY 


0628 ©KEYIN 


0585 


©KITSK 


0089 ©KLTSK 


1CD0 ©LOAD 


1B38 


©LOC 


14B3 ©LOF 


14DE ©LOGER 


0503 


©LOGOT 


0500 ©M0D2 


0000 ©M0D4 


FFFF 


©MSG 


0530 ©MUL16 


06C9 ©MUL8 


190A 


©NMI 


0066 ©OPEN 


198A ©OPREG 


0084 


©PARAM 


1987 ©PAUSE 


0382 ©PEOF 


14A2 


©POSN 


1434 ©PRINT 


0528 ©PRT 


063D 


©PUT 


0645 ©RAMDIR 


19AC ©RDHDR 


19D8 


©RDSEC 


19F4 ©RDSSC 


18D8 ©RDTRK 


19E0 


©READ 


1513 ©REMOVE 


19A6 ©RENAME 


1996 


©REW 


149B ©RMTSK 


1CD7 ©RPTSK 


1CEB 


©RREAD 


1473 ©RSLCT 


19D4 ©RST00 


0000 


©RST08 


0008 ©RST10 


0010 ©RST18 


0018 


©RST20 


0020 ©RST28 


0028 ©RST30 


0030 


©RST38 


0038 ©RSTNMI 


0FE9 ©RSTOR 


19C8 


©RSTREG 


0680 ©RUN 


IBID ©RWRIT 


13 AD 


©SEEK 


19D0 ©SEEKSC 


1421 ©SKIP 


1430 


©SLCT 


19BC ©SOUND 


0392 ©STEPI 


19CC 


©TIME 


078D ©USA 


FFFF ©VDCTL 


0B99 


©VDCTL3 


0D38 ©VER 


1560 ©VRSEC 


19DC 


©WEOF 


14EC ©WHERE 


1979 ©WRITE 


1531 


©WRSEC 


19E8 ©WRSSC 


19EC ©WRTRK 


19F0 


© VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AUTO? 


1FF1 BAR$ 


0201 BOOTST$ 


439D 


BREAK? 


1C60 BRKVEC$ 


1C88 BUR$ 


0200 


CASHK$ 


0A7B CFCB$ 


00E0 CFGFCB$ 


00E0 


CFLAG$ 


006C CKMOD© 


1A7F CKOPEN© 


1568 


CLOSDCB 


1E6B CONFIG$ 


203F CORES 


0300 


CR 


000D CRTBGN$ 


F800 CYL GRN 


16AE 


D©FBYT8 


1A26 DATES 


0033 DAYTBL$ 


04C7 


DBGSV$ 


00A0 DCBKL$ 


0031 DCT$ 


0470 


DCTBYT8© 


1A29 DCTFLD© 


1A34 DECGRNS 


1EBF 


DFLAG$ 


006D DIRBUF$ 


2300 DIS DO RAM 


0846 


DODATA$ 


0B94 DODCB$ 


0210 DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 
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The Source 


SYSTEM Files 


SYS10 - LS-DOS 6.2 


Page 00005 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DSKTYP$ 


04C0 DTPMT$ 


04C2 DVREND$ 


0FF4 


DVRHI$ 


0206 EFLAG$ 


006E ENADIS DO RAM 


0817 


EXTDBG$ 


19A4 EXTINFO 


1E53 FDDINTl 


000E 


FEMSK$ 


006F FIXDIR 


1E3E FLGTAB$ 


006A 


GET @ ROWCOL 


0DAE GRNSCYL 


1EB9 HERTZ$ 


0750 


HIGH$ 


040E HKRES$ 


1A6C IFLAG$ 


0072 


INBUF$ 


0420 INTIM$ 


003C INTMSK$ 


003D 


INTVC$ 


003E JCLCB$ 


0203 JDCB$ 


0024 


JFCB$ 


00C0 JLDCB$ 


0230 JRET$ 


0026 


KCK@ 


07D6 KFLAG$ 


0074 KIDATA$ 


08FC 


KIDCB$ 


0208 LAST 


1ED2 LBANK$ 


0202 


LDRV$ 


0023 LFLAG$ 


0075 LNKFCB0 


1566 


LOW$ 


001E LSVC$ 


000D MAXCOR$ 


2400 


MAXDAY$ 


0401 MINCOR$ 


3000 MODOUTS 


0076 


MONTBL$ 


04DC NFLAG$ 


0077 OPREG$ 


0078 


OPREG SV AREA 


086E OPREG SV PTR 


0835 ORARET0 


14DC 


OSRLSI 


003B OSVERI 


0085 OVRLY$ 


0069 


PAKNAM$ 


0410 PAUSED 


0382 PCSAVES 


07AF 


PDRV$ 


001B PHIGH$ 


001C PRDCB$ 


0218 


PUTA(s>DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


REMOVl 


1E1B REMOV2 


1E24 REMOV3 


1E2C 


RFLAG$ 


007B RMVEX1 


1EB1 RMVEXT 


1E89 


RMVGRN 


1EC5 RMVGRNl 


1ECF ROWCOL 2 ADDR 


0DD0 


RST38@ 


1BFF RSTOR$ 


04C4 RWRIT(9 


13A2 


S1DCB$ 


0238 SBUFF$ 


1D00 SET@EXEC 


1A79 


SET SCROLL 


0CF3 SFCB$ 


008C SFLAG$ 


007C 


SIDCB$ 


0220 SODCB$ 


0228 SPACE4$ 


2142 


STACKS 


0380 STARTS 


0000 SVCRET$ 


000B 


SVCTABS 


0100 SYS10 


1E00 SYSERRS 


1B13 


TCB$ 


004E TFLAG$ 


007D TIMES 


002D 


TIMERS 


002C TIMSLS 


002B TIMTSKS 


0713 


TMPMT$ 


04C3 TRACE INT 


07B1 TYPHK$ 


0A8F 


TYPTSK$ 


0B26 USTORl 


0013 VFLAG$ 


007F 


WRINT$ 


0080 ZERLP1 


1E66 ZEROS 


0401 


ZEROAG* 


13A0 






1E00 is the transfer address 






00000 Total errors 
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SYS11/SYS 

SYS11 handles the execution of a JCL file. It automatically links and unlinks itself 
into the system. It is used to supply input from the JCL file in response to keyboard 
line requests. 



Page 247 



The Source 


SYSTEM Fil 


es 


SYSll - LS- 


DOS 


6.2 Page 00001 




00100 


;SYS11/ASM - LS 


-DOS 6.2 








00110 


*MOD 










0000 


00120 
00130 


s 


TITLE 


<SYS11 - LS 


-D05 


, 6.2> 


000A 


00140 LF 


EQU 


10 






0000 


00150 CR 


EQU 


13 








00160 


*LIST 


OFF 






;Get SYS0/EQU 




00180 


*LIST 


ON 








0000 


00190 


*GET 


COPYCOM 


:3 




;Copyright message 




03010 


; COPYCOM - Fil 


e for Copyright 


COMment block 




03020 


s 










0000 


03030 
03040 
00200 


s 

$ 


COM 


■<*(C) 1982 


,83, 


84 by LSI*>' 


1E00 


00210 
00220 


s 


ORG 


1E00H 






1E00 E670 


00230 SYSll 


AND 


70H 






1E02 C8 


00240 




RET 


Z 




;Back on zero entry 


1E03 E5 


00250 




PUSH 


HL 






1E04 217400 


00260 




LD 


HL,KFLAG$ 




;Reset the <ENTER> 


1E07 CB96 


00270 




RES 


2,(HL) 




; bit eyery time 


1E09 El 


00280 




POP 


HL 






1E0A FE20 


00290 




CP 


20H 




;New (PEXIT? 


1E0C 2847 


00300 




JR 


Z,NEWEXIT 






1E0E FE40 


00310 




CP 


40H 




;New keyboard request 


1E10 CAD61E 


00320 




JP 


Z 9 KEYREQ 




; after input of a line? 


1E13 FE50 


00330 




CP 


50H 




;//INPUT followup 


1E15 CAB420 


00340 




JP 


Z,GETKEY 






1E18 FE10 


00350 




CP 


10H 




; Initial entry to DO? 


1E1A C0 


00360 
00370 


s 


RET 


NZ 








00380 


» 


<DO> initialization 


of 


sysres hooks 




00390 


s 










1E1B F3 


00400 




DI 






;Clock off for now 


1E1C 217400 


00410 




LD 


HL,KFLAG$ 




;Reset break bit only on 


1E1F CB86 


00420 




RES 


0,(HL) 




; initial entry 


1E21 217C00 


00430 




LD 


HL,SFLAG$ 






1E24 CB6E 


00440 




BIT 


5,(HL) 




;If DO already in effect 


1E26 CBEE 


00450 




SET 


5,(HL) 




; don't rehook 


1E28 2005 


00460 




JR 


NZ, IPLDOl 






1E2A 3EAD 


00470 




LD 


A,0ADH 




;Change @EXIT,@ABORT to u 


1E2C 320C1B 


00480 




LD 


(@EXIT+1),A 




; SYSll rather than SYS1 


1E2F 318003 


00490 


IPLDOl 


LD 


SP, STACKS 






1E32 FB 


00500 




EI 






;Clock back on 


1E33 11C000 


00510 




LD 


DE,JFCB$ 




;At end of SYSTEM/JCL? 


1E36 CD8F15 


00520 




CALL 


0CKEOF 






1E39 C20F1B 


00530 




JP 


NZ s @ERROR 






1E3C 114F1E 


00540 




LD 


DE,IPLD02 




; I n i t JCLCBS 


1E3F ED530402 


00550 




LD 


(JCLCB$+1), 


DE 




1E43 CD771E 


00560 




CALL 


GETLINE 




;Get a line from the file 


1E46 11A919 


00570 




LD 


DE,(9DOKEY 




;Change vector to SYSll, 


1E49 ED530402 


00580 




LD 


(JCLCBS+1), 


DE 


; entry 4 


1E4D 1825 


00590 




JR 


$?1 




;Go interpret it 


1E4F 11C000 


00600 


IPLD02 


LD 


DE,JFCB$ 




;JCLCB$ input routine 


1E52 C33806 


00610 
00620 


» 


JP 


@GET 








00630 


> 


New ©EXIT processin 


9 






00640 


3 










1E55 318003 


00650 


NEWEXIT 


LD 


SP, STACKS 




;Reset the stack 


1E58 FB 


00660 




EI 








1E59 7C 


00670 




LD 


A,H 




;Ck for error return 
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The Source 


SYSTEM Fi 


les 


SYSll - LS-DOS 


6.2 Page 000 


1E5A B5 


00680 


OR 


L 




1E5B 2023 


00690 


JR 


NZ s ABORT 




1E5D 217C00 


00700 


LD 


HL,SFLAG$ 




1E60 CB66 


00710 


BIT 


4,(HL) 


;BREAK key disabled? 


1E62 2005 


00720 


JR 


NZ S NEWEX1 




1E64 CD5305 


00730 


CALL 


0CKBRKC 


;Check on <BREAK> 


1E67 2017 


00740 


JR 


NZ, ABORT 




1E69 11C000 


00750 NEWEX1 


LD 


DE S JFCB$ 


;Exit if end of JCL 


1E6C CD8F15 


00760 


CALL 


0CKEOF 




1E6F 2041 


00770 


JR 


NZ,EXIT 




1E71 CD771E 


00780 


CALL 


GETLINE 


;Grab a JCL line 


1E74 C37E19 


00790 $?1 


JP 


(PCMNDI 




1E77 212004 


00800 GETLINE LD 


HL,INBUF$ 


;Pt to line buffer 


1E7A 01004F 


00810 


LD 


BC,79<8 


;Max 79 chars 


1E7D C38505 


00820 
00830 ; 


JP 


@KEYIN 






00840 ; 


New ABORT processor 






00850 ; 








1E80 216221 


00860 ABORT 


LD 


HL, ABORTS 


;"Job abort.. . 


1E83 11081B 


00870 


LD 


DE,(9AB0RT 




1E86 1830 


00880 
00890 ; 


JR 


EXIT1 






00900 ; 


Scan 


for ENTER or BREAK 






00910 ; 








1E88 3A7C00 


00920 KSCN 


LD 


A,(SFLAG$) 


;Only test BREAK if 


1E8B CB67 


00930 


BIT 


4, A 


; BREAK key enabled 


1E8D 3A7400 


00940 


LD 


A,(KFLAG$) 




1E90 2004 


00950 


JR 


NZ,KSCN1 




1E92 CB47 


00960 


BIT 


M 


;BREAK detected? 


1E94 20EA 


00970 


JR 


NZ, ABORT 




1E96 CB57 


00980 KSCN1 


BIT 


2, A 


;Test <ENTER> 


1E98 C8 


00990 


RET 


Z 


;Back if not 


1E99 CD3506 


01000 KSCN2 


L/M L L 


@KBD 


;Clear the type ahead 


1E9C 28FB 


01010 


JR 


Z,KSCN2 




1E9E 217400 


01020 


LD 


HL 9 KFLAG$ 


;Reset the ENTER bit 


1EA1 CB96 


01030 


RES 


2,(HL) 




1EA3 C5 


01040 


PUSH 


BC 




1EA4 060B 


01050 


LD 


B,3000<-8 




1EA6 CD8203 


01060 


CALL 


(9PAUSE 




1EA9 CI 


01070 


POP 


BC 




1EAA 7E 


01080 


LD 


A,(HL) 


;Don't return until c 


1EAB E604 


01090 


AND 


4 




1EAD EE04 


01100 


XOR 


4 




1EAF 28E8 


01110 


JR 


Z,KSCN2 




1EB1 C9 


01120 
01130 ; 


RET 








01140 ; 


Continuation of EXIT processing 




01150 ; 








1EB2 216E21 


01160 EXIT 


LD 


HL,JOBDUN$ 


;"Job done. . . 


1EB5 110B1B 


01170 


LD 


DE,(9EXIT 




1EB8 D5 


01180 EXIT1 


PUSH 


DE 




1EB9 CD0005 


01190 
01200 ; 


CALL 


(3LOGOT 


;Log & fal 1 thru 




01210 ; 


Turn 


off the DO processor 




01220 ; 








1EBC 


01230 DOOFF 


EQU 


$ 




1EBC F3 


01240 


DI 






1EBD 217C00 


01250 


LD 


HL,SFLAG$ 


;Reset <DO> flag 


1EC0 CBAE 


01260 


RES 


5,(HL) 




1EC2 AF 


01270 


XOR 


A 




1EC3 32C000 


01280 


LD 


(JFCB$),A 


;Show fcb is closed 
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The Source 


SYSTEM Fil 


es 


SYS11 - LS-DOS 6. 


2 Page 00003 


1EC6 67 


01290 


LD 


H,A ; 


Set = for @EXIT 


1EC7 6F 


01300 


LD 


L,A 




1EC8 110802 


01310 


LD 


DE,KIDCB$ ; 


Clear any type ahead 


1ECB 3E03 


01320 


LD 


A, 3 




1ECD CD2306 


01330 


CALL 


0CTL ; 


buffer (no streaming) 


1ED0 3E93 


01340 


LD 


A 9 93H ; 


Restore 0EXIT SVC 


1ED2 320C1B 


01350 


LD 


(@EXIT+1),A ; 


back to SYS1 


1ED5 C9 


01360 
01370 ; 


RET 








01380 ; 


Keyboard request processor 




01390 ; 








1ED6 210A00 


01400 KEYREQ 


LD 


HL.10 ; 


Back stack up 5 words 


1ED9 39 


01410 


ADD 


HL,SP ; 


SYS0 9 RET s DE s HL 9 IX,BC 


1EDA 4E 


01420 


LD 


C,(HL) ; 


Get contents of BC 


1EDB 23 


01430 


INC 


HL ; 


prior to keyboard 


1EDC 46 


01440 
01450 ; 


LD 


B,(HL) ; 


request & DRIVER save 




01460 ; 


0KEYIN 


is requesting an entire line 




01470 ; 








1EDD 11C000 


01480 KEYLINE 


LD 


DE,JFCB$ ; 


Ck on end of JCL file 


1EE0 C5 


01490 


PUSH 


BC 




1EE1 CD8F15 


01500 


CALL 


0CKEOF 




1EE4 CI 


01510 


POP 


BC 




1EE5 20CB 


01520 


JR 


NZ 9 EXIT 




1EE7 78 


01530 


LD 


A,B 


Do we need to re-read 


1EE8 B9 


01540 


CP 


c 


, the JCL sector? 


1EE9 C23806 


01550 


JP 


NZ S @GET 




1EEC CD7314 


01560 


CALL 


(3RREAD 


Get the sector back 


1EEF C20F1B 


01570 


JP 


NZ 9 @ERR0R 




1EF2 CD3806 


01580 


CALL 


@GET 




1EF5 B7 


01590 


OR 


A 




1EF6 28BA 


01600 


JR 


Z S EXIT 




1EF8 FE2F 


01610 


CP 


7' 


;Is this line execution 


1EFA 2802 


01620 


JR 


Z 9 GOTSLSH 


; JCL code to parse? 


1EFC BF 


01630 


CP 


A 


;Set Z-flag 


1EFD C9 


01640 
01650 ; 


RET 








01660 ; 


Found 


an execution code 


line 




01670 ; 








1EFE C5 


01680 GOTSLSh 


PUSH 


BC 




1EFF D5 


01690 


PUSH 


DE 




1F00 064F 


01700 


LD 


B 9 79 


;Only 79 char line 


1F02 212004 


01710 


LD 


HL 9 INBUF$ 


;Get rest of line 


1F05 E5 


01720 


PUSH 


HL 


; into JCL buffer 


1F06 77 


01730 60TSL1 


LD 


(HL) 9 A 


;Compare for CR as end 


1F07 23 


01740 


INC 


HL 


; of line 


1F08 FE0D 


01750 


CP 


CR 




1F0A 2807 


01760 


JR 


Z 9 G0TSL2 




1F0C CD3806 


01770 


CALL 


@GET 


;Get a character 


1F0F 10F5 


01780 


DJNZ 


GOTSL1 


; up to 79 max 


1F11 183F 


01790 


JR 


BADJCL 


;Line too long 


1F13 El 


01800 GOTSL2 


POP 


HL 


;Rcvr pointer to buf 


1F14 E5 


01810 


PUSH 


HL 




1F15 23 


01820 


INC 


HL 


;Pt to 2nd char 


1F16 7E 


01830 


LD 


A 9 (HL) 




1F17 FE2F 


01840 


CP 


7' 


;Found a //? 


1F19 2032 


01850 


JR 


NZ 9 REKEY2 




1F1B 23 


01860 


INC 


HL 


;Ck on /// 


1F1C 96 


01870 


SUB 


(HL) 




1F1D CAC11F 


01880 


JP 


Z 9 KEYIN6 


;Jump if /// 


1F20 D6F6 


01890 


SUB 


0F6H 
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The Source 


SYSTEM Fil 


es 


SYSll - LS 


1F22 D2BD1F 


01900 


JP 


NC.KEYIN5 


1F25 E3 


01910 


EX 


(SP),HL 


1F26 CD0305 


01920 


CALL 


@LOGER 


1F29 E3 


01930 


EX 


(SP),HL 


1F2A 7E 


01940 G0TSL3 


LD 


A,(HL) 


1F2B FE0D 


01950 


CP 


CR 


1F2D 281E 


01960 


JR 


Z 9 REKEY2 


1F2F FE20 


01970 


CP 


i i 


1F31 23 


01980 


INC 


HL 


1F32 28F6 


01990 


JR 


Z 9 G0TSL3 


1F34 2B 


02000 


DEC 


HL 


1F35 115321 


02010 


LD 


DE 9 LILBUF 


1F38 0605 


02020 


LD 


B,5 


1F3A CDC820 


02030 


CALL 


PARSER 


1F3D 200E 


02040 


JR 


NZ 9 REKEY2 


1F3F 115321 


02050 


LD 


DE 9 LILBUF 


1F42 017721 


02060 


LD 


BC,PARMTBL 


1F45 CD1121 


02070 


CALL 


FNDPARM 


1F48 2003 


02080 


JR 


NZ S REKEY2 


1F4A D5 


02090 


PUSH 


DE 


1F4B C9 


02100 


RET 




1F4C CI 


02110 REKEY1 


POP 


BC 


1F4D El 


02120 REKEY2 


POP 


HL 


1F4E Dl 


02130 


POP 


DE 


1F4F CI 


02140 


POP 


BC 


1F50 188B 


02150 


JR 


KEYLINE 


1F52 215921 


02160 BADJCL 


LD 


HL 9 BADJCL$ 


1F55 C3831E 


02170 
02180 ; 


JP 


ABORT+3 




02190 ; 


Process 


//STOP 




02200 ; 






1F58 CDBC1E 


02210 STOP 


CALL 


DOOFF 


1F5B El 


02220 


POP 


HL 


1F5C Dl 


02230 


POP 


DE 


1F5D CI 


02240 


POP 


BC 


1F5E FB 


02250 


EI 




1F5F C32806 


02260 
02270 ; 


JP 


@KEY 




02280 ; 


Process 


//DELAY 




02290 ; 






1F62 E3 


02300 DELAY 


EX 


(SP) 9 HL 


1F63 CD2D05 


02310 


CALL 


0DSPLY 


1F66 E3 


02320 


EX 


(SP),HL 


1F67 CDE103 


02330 


CALL 


0DECHEX 


1F6A 41 


02340 


LD 


B,C 


1F6B CD1C20 


02350 DELAY1 


CALL 


SILENl 


1F6E 10FB 


02360 


DJNZ 


DELAY1 


1F70 18DB 


02370 
02380 ; 


JR 


REKEY2 




02390 ; 


Process 


//PAUSE 




02400 ; 






1F72 El 


02410 PAUSE 


POP 


HL 


1F73 E5 


02420 


PUSH 


HL 


1F74 CD2D05 


02430 


CALL 


0DSPLY 


1F77 CD881E 


02440 PAUSE 1 


CALL 


KSCN 


1F7A 28FB 


02450 


JR 


Z 9 PAUSE1 


1F7C 18CF 


02460 
02470 ; 


JR 


REKEY2 




02480 ; 


Process 


//KEYIN 




02490 ; 






1F7E El 


02500 KEYIN 


POP 


HL 



i.2 Page 00004 

;Jump if 3rd char is 0-9 
;P/u start of command 
; line & log it 

;Was char ENTER? 



;Ignore leading spaces 

;Put possible parm -> buf 
;Max length of parm 
;Parse parm 

;Is the parm a macro? 

;Bypass if not in tbl 
;Stack routine's entry 
; & go to it 



invalid JCi 



;Turn off DO proc 



;Go back to keyboard 



;Pt to //delay line 
; and display it 

;Cvrt entry to binary 
;Set count 
;Delay a bit 



;Display "pause.. 



;Loop for BREAK or ENTER 



;Rcvr pointer to "KEYIN 
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The Source 


SYSTEM Fil 


es 


SYS11 - LS-DOS 


6.2 Page 00005 


1F7F E5 


02510 


PUSH 


HL 




1F80 7E 


02520 KEYIN1 


LD 


A S (HL) 


; Display JCL command line 


1F81 23 


02530 


INC 


HL 




1F82 FE0D 


02540 


CP 


CR 




1F84 2805 


02550 


JR 


Z 9 KEYIN2 




1F86 CD4206 


02560 


CALL 


@DSP 




1F89 18F5 


02570 


JR 


KEYINl 




1F8B CD2806 


02580 KEYIN2 


CALL 


@KEY 


;Get & display the char 


1F8E CD4206 


02590 


CALL 


0DSP 




1F91 32BE1F 


02600 


LD 


(KEYIN5+1),A 


;Stuff for compare 


1F94 3E0D 


02610 


LD 


A.CR 




1F96 CD4206 


02620 


CALL 


@DSP 


;Write new line 


1F99 El 


02630 KEYIN3 


POP 


HL 




1F9A E5 


02640 


PUSH 


HL 




1F9B 11C000 


02650 


LD 


DE S JFCB$ 


;Ck for end of JCL 


1F9E CD8F15 


02660 


CALL 


(3CKEOF 




1FA1 C2B21E 


02670 


JP 


NZ,EXIT 




1FA4 CD3806 


02680 KEYIN4 


CALL 


0GET 


;Xfer a line of JCL 


1FA7 77 


02690 


LD 


(HL),A 


; to buffer 


1FA8 23 


02700 


INC 


HL 




1FA9 FE0D 


02710 


CP 


CR 




1FAB 20F7 


02720 


JR 


NZ S KEYIN4 




1FAD El 


02730 


POP 


HL 




1FAE E5 


02740 


PUSH 


HL 




1FAF 7E 


02750 


LD 


A S (HL) 


;Look for // to find 


1FB0 FE2F 


02760 


CP 


7' 


;Start of procedure block 


1FB2 20E5 


02770 


JR 


NZ,KEYIN3 




1FB4 23 


02780 


INC 


HL 




1FB5 BE 


02790 


CP 


(HL) 


;//? 


1FB6 20E1 


02800 


JR 


NZ,KEYIN3 




1FB8 23 


02810 


INC 


HL 


;Point to proc label 


1FB9 96 


02820 


SUB 


(HL) 


;Is label a 7' noting 


1FBA 2805 


02830 


JR 


Z,KEYIN6 


; exec phase cond's end? 


1FBC 7E 


02840 


LD 


A S (HL) 


;Nope s get proc label 


1FBD FE00 


02850 KEYIN5 


CP 





;Same as key entry? 


1FBF 20D8 


02860 


JR 


NZ S KEYIN3 


;No match? check next one 


1FC1 32BE1F 


02870 KEYIN6 


LD 


(KEYIN5+1) S A 


;Stuff if /// 


1FC4 El 


02880 


POP 


HL 




1FC5 E5 


02890 


PUSH 


HL 




1FC6 CD0305 


02900 


CALL 


0LOGER 


;Log the command 


1FC9 1882 


02910 
02920 ; 


JR 


REKEY2 






02930 ; 


Process 


//ALERT 






02940 ; 








1FCB AF 


02950 ALERT 


XOR 


A 




1FCC 32FB1F 


02960 


LD 


(ALERT4+1) S A 


;Start with clean flag 


1FCF 7E 


02970 ALERT1 


LD 


A 9 (HL) 


; Ignore spaces 


1FD0 23 


02980 


INC 


HL 




1FD1 FE20 


02990 


CP 


i i 




1FD3 28FA 


03000 


JR 


Z.ALERT1 




1FD5 FE2C 


03010 


CP 


» 


;Comma separator? 


1FD7 28F6 


03020 


JR 


Z,ALERT1 




1FD9 FE0D 


03030 


CP 


CR 


;End of line? 


1FDB CA4D1F 


03040 


JP 


Z,REKEY2 




1FDE FE29 


03050 


CP 


')' 


;Closing paren? 


1FE0 2809 


03060 


JR 


Z,ALERT2 




1FE2 FE28 


03070 


CP 


'(' 


;Start of parms? 


1FE4 200F 


03080 


JR 


NZ,ALERT3 


;If none of the above.. . 


1FE6 22EC1F 


03090 


LD 


(ALERT2+1),HL 


;Save ptr to parm start 


1FE9 18E4 


03100 
03110 ; 


JR 


ALERT1 
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03120 ; 


Check r 


lere when closing | 


3arm received 




03130 ; 








1FEB 210000 


03140 ALERT2 


LD 


HL,0 


;P/u ptr to ' (' if there 


1FEE 7C 


03150 


LD 


A,H 


;If the //ALERT1 started 


1FEF B5 


03160 


OR 


L 


; with a ' (' , then 


1FF0 20DD 


03170 


JR 


NZ,ALERT1 


; repeat the parm 


1FF2 C3521F 


03180 
03190 ; 


JP 


BADJCL 


, parsing else exit 




03200 ; 


Assumed integer parm four 


id 




03210 ; 








1FF5 2B 


03220 ALERT3 


DEC 


HL 


;Backup pointer 


1FF6 CDE103 


03230 


CALL 


0DECHEX 


Cvrt value to binary 


1FF9 41 


03240 


LD 


B 9 C 


;Keep value as counter 


1FFA 3E00 


03250 ALERT4 


LD 


A,0 


, F 1 i p flag: entries 1, 3, 


1FFC EEFF 


03260 


XOR 


0FFH 


, 5, . .. are noise, 2, 


1FFE 32FB1F 


03270 


LD 


(ALERT4+1),A 


4 9 6 9 ... are si lence 


2001 4F 


03280 


LD 


C,A 




2002 CB41 


03290 


BIT 


0,C 


Jest noise or si lence 


2004 C49203 


03300 


CALL 


NZ s @SOUND 


Call for sound out 


2007 CB41 


03310 


BIT 


0,C 


, then test again 


2009 CC1420 


03320 


CALL 


Z, SILENCE 


Silence is golden 


200C CD881E 


03330 


CALL 


KSCN 


Ck BREAK or ENTER 


200F C24D1F 


03340 


JP 


NZ,REKEY2 


Go on enter 


2012 18BB 


03350 
03360 ; 


JR 


ALERT1 


Loop if not 




03370 ; 


Silence 


1 routine 






03380 ; 








2014 B0 


03390 SILENCE OR 


B ; 


A was zero 


2015 C8 


03400 


RET 


Z 




2016 CD1C20 


03410 


CALL 


SILENl ; 


Delay a bit 


2019 10F9 


03420 


DJNZ 


SILENCE j 


for duration 


201B C9 


03430 


RET 






201C C5 


03440 SILENl 


PUSH 


BC ; 


Delay for 0.1 sec 


201D 019B19 


03450 


LD 


BC,6555 




2020 CD8203 


03460 


CALL 


@PAUSE 




2023 CI 


03470 


POP 


BC 




2024 C9 


03480 
03490 ; 


RET 








03500 ; 


Process 


//FLASH 






03510 ; 








2025 CDE103 


03520 FLASH 


CALL 


0DECHEX 




2028 41 


03530 


LD 


B,C ; 


P/u the flash count 


2029 El 


03540 


POP 


HL 




202A E5 


03550 


PUSH 


HL 




202B C5 


03560 FLASH1 


PUSH 


BC 




202C CD2D05 


03570 


CALL 


0DSPLY ; 


Display the prompt 


202F 010040 


03580 


LD 


BC,4000H ; 


Countdown to flash msg 


2032 CD881E 


03590 FLASH2 


CALL 


KSCN ; 


Keep testing <ENTER> 


2035 C24C1F 


03600 


JP 


NZ,REKEY1 ; 


key during countdown 


2038 0B 


03610 


DEC 


BC ; 


BREAK would abort 


2039 78 


03620 


LD 


A S B 




203A Bl 


03630 


OR 


C 




203B 20F5 


03640 


JR 


NZ,FLASH2 ; 


Loop until count=0 


203D 3E1B 


03650 


LD 


A.27 ; 


Erase the message line 


203F CD4206 


03660 


CALL 


@DSP 




2042 3E1E 


03670 


LD 


A, 30 




2044 CD4206 


03680 


CALL 


@DSP 




2047 CD1C20 


03690 


CALL 


SILENl ; 


Delay while blanked 


204A CI 


03700 


POP 


BC 




204B 10DE 


03710 


DJNZ 


FLASH1 




204D C34D1F 


03720 FLASH3 


JP 


REKPV2 
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2050 3E 

2051 AF 

2052 327120 

2055 E3 

2056 CD2D05 
2059 E3 
205A 115321 
205D 0603 
205F 1805 
2061 FE0A 
2063 C2521F 

2066 C5 

2067 CDE103 
206A 71 
206B EDA0 
206D CI 
206E 10F1 
2070 3E00 

2072 B7 

2073 281F 
2075 215521 
2078 112D00 
207B 0602 
207D 1A 
207E 86 
207F 77 
2080 D63C 
2082 3804 

2084 77 

2085 2B 

2086 34 

2087 23 

2088 13 

2089 2B 
208A 10F1 
208C 1A 
208D 86 
208E 77 
208F D618 
2091 3801 
2093 77 



2094 CD881E 
2097 215321 
209A 112F00 
209D 0603 
209F 1A 
20A0 BE 
20A1 20F1 
20A3 23 
20A4 IB 
20A5 10F8 
20A7 18A4 



03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 



Process //SLEEP and //WAIT 



SLEEP 
WAIT 



PAKTIM 
PAKTIM1 



SLPWT 



SLP1 



SLP2 



TSTIME 



CKTIME 



DB 

XOR 

LD 

EX 

CALL 

EX 

LD 

LD 

JR 

CP 

JP 

PUSH 

CALL 

LD 

LDI 

POP 

DJNZ 

LD 

OR 

JR 

LD 

LD 

LD 

LD 

ADD 

LD 

SUB 

JR 

LD 

DEC 

INC 

INC 

INC 

DEC 

DJNZ 

LD 

ADD 

LD 

SUB 

JR 

LD 



3EH 

A 

(SLPWT+1),A 

(SP),HL 

0DSPLY 

(SP),HL 

DE,TIMFLD 

B 3 

PAKTIM1 

•:'-30H 

NZ,BADJCL 

BC 

0DECHEX 

(HL),C 

BC 

PAKTIM 

A,0 

A 

Z, TSTIME 

HL.TIMFLD+2 

DE,TIME$ 

B,2 

A,(DE) 

A,(HL) 

(HL),A 

60 

C,SLP2 

(HL),A 

HL 

(HL) 

HL 

DE 

HL 

SLP1 

A,(DE) 

A,(HL) 

(HL),A 

24 

C, TSTIME 

(HL),A 



;Make it LD A.0AFH 

;Save entry state 
; Display the JCL line 



;Pt to time field 
;Set up loop counter 

;Test valid separator 



;Cvrt the hours 
; Store time parm 
;Shift & bump HL & DE 
;Rcvr the loop counter 
;Loop for 3 values 
;P/u sleep/wait flag 

;Go if //WAIT 
;Point to seconds 



;Add secs/mins 

; Store 

;Ck overflow to mins/hrs 

;Go if none 

; Update value mod 60 

; & bump next field 

;Adj for dec 
;Bump time$ 
;Bump user field 

;Add hours 



Wrap past midnight? 
Go if not else 
adjust mod 24 



Wait until the system clock advances to request 



CALL 

LD 

LD 

LD 

LD 

CP 

JR 

INC 

DEC 

DJNZ 

JR 



KSCN 

HLJIMFLD 

DE,TIME$+2 

B,3 

A,(DE) 

(HL) 

NZ, TSTIME 

HL 

DE 

CKTIME 

FLASH3 



;Scan for BREAK 



;Set loop counter 
;P/u a time value 
;Match user input? 
;Go if no match 
;Inc the user req ptr 
;Dec the time string ptr 
;Loop for 3 values 
;A11 match, exit! 



Process //INPUT request 
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20A9 El 


04340 INPUT 


POP 


HL 


;Recover JCL line & 


20AA CD2D05 


04350 


CALL 


0DSPLY 


; pump it to screen 


20AD 3EDD 


04360 


LD 


A,0DDH 


jChange sysres hook 


20AF 32AA19 


04370 


LD 


(@DOKEY+l),A 




20B2 Dl 


04380 


POP 


DE 


;Stack integrity 


20B3 CI 


04390 


POP 


BC 


;Get @KEYIN values 




04400 , 












04410 , 




This 


next routine wi 11 


satisfy the request 




04420 ; 










20B4 CD2806 


04430 GETKEY 


CALL 


@KEY 


;Fetch from keyboard 


20B7 F5 


04440 


PUSH 


AF 


;Don't disturb flag 


20B8 3D 


04450 


DEC 


A 




20B9 2806 


04460 


JR 


Z,UNHOOK 


;Change back on BREAK 


20BB FE0C 


04470 


CP 


CR-1 


; or ENTER 


20BD 2802 


04480 


JR 


Z, UNHOOK 




20BF Fl 


04490 


POP 


AF 




20C0 C9 


04500 


RET 






20C1 3ECD 


04510 UNHOOK 


LD 


A,0CDH 


;Restore sysres hook 


20C3 32AA19 


04520 


LD 


(@DOKEY+l),A 




20C6 Fl 


04530 


POP 


AF 


;Get saved character 


20C7 C9 


04540 


RET 








04550 












04560 




Parameter list & scanners 




04570 , 












04580 




Parse a field 






04590 




(HL) 


=> command line 






04600 




(DE) 


=> FCB area 






04610 




Z 


<= found valid field 




04620 s 




NZ 


<= found invalid 1 


Field 




04630 










20C8 0608 


04640 PARSER 


LD 


B,8 


;Set length 


20CA 78 


04650 PARI 


LD 


A,B 




20CB 32FF20 


04660 


LD 


(PAR6+1),A 




20CE 04 


04670 


INC 


B 




20CF 7E 


04680 PAR2 


LD 


A,(HL) 




20D0 FE03 


04690 


CP 


3 


;ETX? 


20D2 2826 


04700 


JR 


Z,PAR5 




20D4 FE0D 


04710 


CP 


CR 


;<ENTER>? 


20D6 2822 


04720 


JR 


Z,PAR5 




20D8 FE28 


04730 


CP 


'(' 


; Beg in of parm? 


20DA 281E 


04740 


JR 


Z.PAR5 




20DC 23 


04750 


INC 


HL 


;Bump pointer to next 


20DD CD0321 


04760 


CALL 


TST09AZ 


;Test if 0-9, A-Z 


20E0 300A 


04770 


JR 


NC.PAR3 


;Go if one of the above 


20E2 FE61 


04780 


CP 


'a' 


;Check on lower case 


20E4 3814 


04790 


JR 


C,PAR5 


;Jump on non-alpha 


20E6 FE7B 


04800 


CP 


*z'+l 


;Is it a-z? 


20E8 3010 


04810 


JR 


NC.PAR5 


;Jump on non-alpha 


20EA CBAF 


04820 


RES 


5, A 


; Convert lower to upper 


20EC 05 


04830 PAR3 


DEC 


B 


;Count down 


20ED 2808 


04840 


JR 


Z,PAR4 




20EF 12 


04850 


LD 


(DE),A 


;Xfer the char 


20F0 AF 


04860 


XOR 


A 


;Show at least 1 valid 


20F1 32FF20 


04870 


LD 


(PAR6+1),A 


; char was detected 


20F4 13 


04880 


INC 


DE 


;Bump FCB pointer 


20F5 18D8 


04890 
04900 ; 


JR 


PAR2 


;Loop 


20F7 04 


04910 PAR4 


INC 


B 


;Here on max chars ck'd 


20F8 18D5 


04920 


JR 


PAR2 




20FA 4F 


04930 PAR5 


LD 


C,A 


;Save separator 


20FB 3E03 


04940 




LD 


A, 3 


;Stuff ETX 
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20FD 12 


04950 


LD 


(DE) S A 








20FE 3E00 


04960 PAR6 


LD 


A,0 






;Set Z-flag if at least 


2100 B7 


04970 


OR 


A 






; 1 valid char detected 


2101 79 


04980 


LD 


A,C 






;Recover separator char 


2102 C9 


04990 


RET 










2103 FE30 


05000 TST09AZ 


CP 


■0' 






;Special character? 


2105 D8 


05010 


RET 


C 






;Go if not in range 


2106 FE3A 


05020 


CP 


'9' + l 






;Jump on digit 0-9 


2108 3805 


05030 


JR 


C S EXITC 






;6o if 0-9 & make NC 


210A FE41 


05040 


CP 


'A' 






;Jump on spec char 


210C D8 


05050 


RET 


C 






;Go with C-flag if 3B-40 


210D FE5B 


05060 


CP 


'Z'+l 






;Jump on A-Z 


210F 3F 


05070 EXITC 


CCF 








;Switch flag of result 


2110 C9 


05080 
05090 ; 


RET 












05100 ; 


Find 


parameter in table 






05110 ; 


(HL) 


=> pointer 


to 


line 






05120 ; 


(DE) 


=> pointer 


to 


buffer area 




05130 ; 


(BC) 


=> pointer 


to 


parameter table 




05140 ; 


C 


<= entry # 


of 


parm 


in table 




05150 ; 


(DE) 


<= parm vector address 




05160 ; 


Z < 


= set if found 






05170 ; 


NZ < 


= if not fc 


>unc 


i in 1 


table 




05180 ; 


Routine similar 


as 


FIND 


.PARM in SYS1 - dif width 




05190 ; 












2111 E5 


05200 FNDPARM 


PUSH 


HL 








2112 60 


05210 


LD 


H,B 






;Xfer the table address 


2113 69 


05220 


LD 


L,C 








2114 1A 


05230 FND1 


LD 


A S (DE) 






;P/u input byte 


2115 BE 


05240 


CP 


(HL) 






;Match 1st char of table? 


2116 280D 


05250 


JR 


Z,FND3 






;Jump if 1st matches 


2118 C5 


05260 FND2 


PUSH 


BC 






; else bypass that entry 


2119 010700 


05270 


LD 


BC,7 






;Width of table 


211C 09 


05280 


ADD 


HL,BC 








211D CI 


05290 


POP 


BC 








211E 7E 


05300 


LD 


A,(HL) 






;Test for table end 


211F B7 


05310 


OR 


A 








2120 20F2 


05320 


JR 


NZ,FND1 






;Loop if not at end 


2122 El 


05330 


POP 


HL 








2123 3C 


05340 


INC 


A 






; else set NZ return 


2124 C9 


05350 
05360 ; 


RET 












05370 ; 


1st matches, does ' 


the rest? 




05380 ; 












2125 0604 


05390 FND3 


LD 


B,4 






;# chars remaining 


2127 E5 


05400 


PUSH 


HL 








2128 D5 


05410 


PUSH 


DE 








2129 13 


05420 FND4 


INC 


DE 








212A 23 


05430 


INC 


HL 








212B 1A 


05440 


LD 


A,(DE) 






;P/u input char 


212C FE03 


05450 


CP 


3 






;ETX? 


212E 281A 


05460 


JR 


Z,FND7 








2130 FE0D 


05470 


CP 


CR 






;End of line? 


2132 2816 


05480 


JR 


Z,FND7 








2134 BE 


05490 


CP 


(HL) 






;Match with table? 


2135 200E 


05500 


JR 


NZ.FND6 






;Exit & test the char 


2137 10F0 


05510 


DJNZ 


FND4 






;Loop for limit 


2139 Dl 


05520 FND5 


POP 


DE 






;Must be a match 


213A CI 


05530 


POP 


BC 








213B 210500 


05540 


LD 


HL,5 






;Point to vector 


213E 09 


05550 


ADD 


HL,BC 
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213F 5E 




05560 


LD 


E 9 (HL) ;Xfer vector to DE 


2140 23 




05570 


INC 


HL 


2141 56 




05580 


LD 


D,(HL) 


2142 El 




05590 


POP 


HL 


2143 AF 




05600 


XOR 


A ; & show it found 


2144 C9 




05610 
05620 ; 


RET 








05630 ; 


No mate 


;h if alphanumeric unless a space 






05640 ; 






2145 CD032] 




05650 FND6 


CALL 


TST09AZ ;Ck for 0-9, A-Z 


2148 3005 




05660 


JR 


NC,FND8 ;Go if one of the above 


214A 7E 




05670 FND7 


LD 


A,(HL) ;Loop if table has 


214B FE20 




05680 


CP 


' ' ; trai ling spaces 


214D 28EA 




05690 


JR 


Z,FND5 


214F Dl 




05700 FND8 


POP 


DE 


2150 El 




05710 


POP 


HL 


2151 18C5 




05720 
05730 ; 


JR 


FND2 


0006 




05740 LILBUF 


DS 


6 


2153 




05750 TIMFLD 


EQU 


LILBUF 


2159 42 




05760 BADJCLS DB 


'Bad JCL, ' 


61 64 20 4A 43 4C 2C 


20 




2162 4A 




05770 ABORTS 


DB 


'Job aborted' ,CR 


6F 62 


20 61 62 6F 72 


74 




65 64 0D 








216E 4A 




05780 JOBDUN$ DB 


'Job done' 9 CR 


6F 62 20 64 6F 6E 65 


0D 




2177 41 




05790 PARMTBL DB 


'ABORT' 


42 4F 


52 


54 






217C 801E 




05800 


DW 


ABORT 


217E 41 




05810 


DB 


'ALERT' 


4C 45 


52 


54 






2183 CB1F 




05820 


DW 


ALERT 


2185 44 




05830 


DB 


'DELAY' 


45 4C 


41 


59 






218A 621F 




05840 


DW 


DELAY 


218C 45 




05850 


DB 


'EXIT ' 


58 49 54 20 






2191 B21E 




05860 


DW 


EXIT 


2193 46 




05870 


DB 


'FLASH' 


4C 41 


53 


48 






2198 2520 




05880 


DW 


FLASH 


219A 4B 




05890 


DB 


'KEYIN' 


45 59 


49 


4E 






219F 7E1F 




05900 


DW 


KEYIN 


21A1 50 




05910 


DB 


'PAUSE' 


41 55 


53 


45 






21A6 721F 




05920 


DW 


PAUSE 


21A8 53 




05930 


DB 


'SLEEP' 


4C 45 


45 


50 






21AD 5020 




05940 


DW 


SLEEP 


21AF 53 




05950 


DB 


'STOP ' 


54 4F 


50 


20 






21B4 581F 




05960 


DW 


STOP 


21B6 57 




05970 


DB 


'WAIT ' 


41 49 54 20 






21BB 5120 




05980 


DW 


WAIT 


21BD 49 




05990 


DB 


'INPUT' 


4E 50 


55 


54 






21C2 A920 




06000 


DW 


INPUT 


21C4 00 




06010 


NOP 
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21C5 


06020 LAST 


EQU 


$ 




06030 


IFGT 


$,DIRBUF$ 




06040 


ERR 


'Module too big' 




06050 


ENDIF 




23FE 


06060 


ORG 


MAXC0R$-2 


23FE C503 


06070 
06080 ; 


DW 


LAST-SYS11 ;Overlay size 


1E00 


06090 


END 


SYS11 
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$?1 


1E74 $A1 


03B7 $A2 


$A3 


03B9 $CKEOF 


1470 ©$SYS 


©©1 


0000 ©©2 


0000 ©©3 


(3(34 


0000 ©ABORT 


1B08 ©ADTSK 


©BANK 


0877 ©BKSP 


1486 ©BREAK 


©BYTE 10 


1300 ©CHNIO 


0689 ©CKBRKC 


©CKDRV 


1993 ©CKEOF 


158F ©CKTSK 


©CLOSE 


1999 ©CLS 


0545 ©CMNDI 


©CMNDR 


197B ©CTL 


0623 ©DATE 


©DBGHK 


199F ©DCINIT 


19C0 ©DCRES 


©DCSTAT 


19B5 ©DCTBYT 


1A2B ©DEBUG 


©DECHEX 


03E1 ©DIRCYL 


18F7 ©DIRRD 


©DIRWR 


1803 ©DIV16 


06E3 ©DIV8 


©DODIR 


19AF ©DOKEY 


19A9 ©DSP 


©DSPLY 


052D ©ERROR 


1B0F ©EXIT 


©FEXT 


1984 ©FLAGS 


196 A ©FNAME 


©FRENCH 


0000 ©FSPEC 


1981 ©GATRD 


©GATWR 


1875 ©GERMAN 


0000 ©GET 


©GTDCB 


1990 ©GTDCT 


1A1E ©GTMOD 


©HDFMT 


19E4 ©HEX16 


07BD ©HEX8 


©HEXDEC 


06F6 ©HIGHS 


1948 ©HITRD 


©HITWR 


1898 ©HZ50 


0000 ©ICNFG 


0INIT 


198D ©INTL 


0000 ©I PL 


©JCL 


0630 ©KBD 


0635 ©KEY 


@KEYIN 


0585 ©KITSK 


0089 ©KLTSK 


©LOAD 


1B38 ©LOC 


14B3 ©LOF 


©LOGER 


0503 ©LOGOT 


0500 ©M0D2 


©M0D4 


FFFF ©MSG 


0530 ©MUL16 


©MUL8 


190A ©NMI 


0066 ©OPEN 


©OPREG 


0084 ©PARAM 


1987 ©PAUSE 


©PEOF 


14A2 ©POSN 


1434 ©PRINT 


©PRT 


063D ©PUT 


0645 ©RAMDIR 


©RDHDR 


19D8 ©RDSEC 


19F4 ©RDSSC 


©RDTRK 


19E0 ©READ 


1513 ©REMOVE 


©RENAME 


1996 ©REW 


149B ©RMTSK 


©RPTSK 


1CEB ©RREAD 


1473 ©RSLCT 


©RST00 


0000 ©RST08 


0008 ©RST10 


©RST18 


0018 ©RST20 


0020 ©RST28 


©RST30 


0030 ©RST38 


0038 ©RSTNMI 


©RSTOR 


19C8 ©RSTREG 


0680 ©RUN 


©RWRIT 


13AD ©SEEK 


19D0 ©SEEKSC 


©SKIP 


1430 ©SLCT 


19BC ©SOUND 


©STEP I 


19CC ©TIME 


078D ©USA 


©VDCTL 


0B99 ©VDCTL3 


0D38 ©VER 


©VRSEC 


19DC ©WEOF 


14EC ©WHERE 


©WRITE 


1531 ©WRSEC 


19E8 ©WRSSC 


©WRTRK 


19F0 © VDCTL 


0D42 ABORT 


ABORTS 


2162 ADDR 2 ROWCOL 


0DF1 AFLAGS 


ALERT 


1FCB ALERT1 


1FCF ALERT2 


ALERT3 


1FF5 ALERT4 


1FFA AUTOA 


BADJCL 


1F52 BADJCLS 


2159 BARS 


BOOTSTS 


439D BREAKA 


1C60 BRKVECS 


BUR$ 


0200 CASHKS 


0A7B CFCBS 


CFGFCB$ 


00E0 CFLAGS 


006C CKMOD© 


CKOPEN© 


1568 CKTIME 


209F CONFIGS 


CORES 


0300 CR 


000D CRTBGNS 


CYL GRN 


16AE D©FBYT8 


1A26 DATES 


DAYTBLS 


04C7 DBGSVS 


00A0 DCBKLS 


DCT$ 


0470 DCTBYT8© 


1A29 DCTFLD© 


DELAY 


1F62 DELAY1 


1F6B DFLAGS 



Page 00012 



03B8 
08F0 
0000 
1CDA 
196F 
0553 
1CF5 
197E 
07A8 
19C4 
19A0 
18BB 
1927 
0642 
1B0B 
199C 
1874 
0638 
19B2 
07C2 
1897 
0086 
1BF2 
0628 
1CD0 
14DE 
0000 
06C9 
198A 
0382 
0528 
19AC 
18D8 
19A6 
1CD7 
19D4 



0028 
0FE9 
IBID 
1421 
0392 
FFFF 
1560 
1979 
19EC 
1E80 
006A 
1FEB 
1FF1 
0201 
1C88 
00E0 
1A7F 
203F 
F800 
0033 
0031 
1A34 
006 D 
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DIRBUF$ 


2300 DIS DO RAM 


0846 DODATA$ 


0B94 


DODCB$ 


0210 DOOFF 


1EBC DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DSKTYP$ 


04C0 DTPMT$ 


04C2 DVREND$ 


0FF4 


DVRHI$ 


0206 EFLAG$ 


006E ENADIS DO RAM 


0817 


EXIT 


1EB2 EXIT1 


1EB8 EXITC 


210F 


EXTDBG$ 


19A4 FDDINT$ 


000E FEMSK$ 


006 F 


FLASH 


2025 FLASH1 


202B FLASH2 


2032 


FLASH3 


204D FLGTAB$ 


006A FND1 


2114 


FND2 


2118 FND3 


2125 FND4 


2129 


FND5 


2139 FND6 


2145 FND7 


214A 


FND8 


214F FNDPARM 


2111 GETKEY 


20B4 


GETLINE 


1E77 GET @ ROWCOL 


0DAE GOTSL1 


1F06 


G0TSL2 


1F13 G0TSL3 


1F2A GOTSLSH 


1EFE 


HERTZ$ 


0750 HIGH$ 


040E HKRES$ 


1A6C 


IFLAG$ 


0072 INBUF$ 


0420 INPUT 


20A9 


INTIM$ 


003C INTMSK$ 


003D INTVC$ 


003 E 


IPLDOl 


1E2F IPLD02 


1E4F JCLCB$ 


0203 


JDCB$ 


0024 JFCB$ 


00C0 JLDCB$ 


0230 


JOBDUN$ 


216E JRET$ 


0026 KCK0 


07D6 


KEYIN 


1F7E KEYIN1 


1F80 KEYIN2 


1F8B 


KEYIN3 


1F99 KEYIN4 


1FA4 KEYIN5 


1FBD 


KEYIN6 


1FC1 KEYLINE 


1EDD KEYREQ 


1ED6 


KFLAG$ 


0074 KIDATA$ 


08FC KIDCB$ 


0208 


KSCN 


1E88 KSCN1 


1E96 KSCN2 


1E99 


LAST 


21C5 LBANK$ 


0202 LDRV$ 


0023 


LF 


000A LFLAG$ 


0075 LILBUF 


2153 


LNKFCB0 


1566 LOW$ 


001E LSVC$ 


000 D 


MAXCOR$ 


2400 MAXDAY$ 


0401 MINCOR$ 


3000 


MODOUT$ 


0076 MONTBL$ 


04DC NEWEX1 


1E69 


NEWEXIT 


1E55 NFLAG$ 


0077 OPREG$ 


0078 


OPREG SV AREA 


086E OPREG SV PTR 


0835 ORARET0 


14DC 


OSRLSl 


003B OSVERI 


0085 OVRLY$ 


0069 


PAKNAM$ 


0410 PAKTIM 


2061 PAKTIM1 


2066 


PARI 


20CA PAR2 


20CF PAR3 


20EC 


PAR4 


20F7 PAR5 


20FA PAR6 


20FE 


PARMTBL 


2177 PARSER 


20C8 PAUSE 


1F72 


PAUSE 1 


1F77 PAUSE? 


0382 PCSAVE$ 


07AF 


PDRV$ 


001B PHIGH$ 


001C PRDCB$ 


0218 


PUTA0DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


REKEY1 


1F4C REKEY2 


1F4D RFLAGl 


007B 


ROWCOL 2 ADDR 


0DD0 RST38@ 


1BFF RSTOR$ 


04C4 


RWRIT0 


13A2 S1DCB$ 


0238 SBUFF$ 


1D00 


SET@EXEC 


1A79 SET SCROLL 


0CF3 SFCB$ 


008C 


SFLAG$ 


007C SIDCB$ 


0220 SILEN1 


201C 


SILENCE 


2014 SLEEP 


2050 SLP1 


207D 


SLP2 


2088 SLPWT 


2070 SODCB$ 


0228 


SPACE4$ 


2142 STACKS 


0380 STARTS 


0000 


STOP 


1F58 SVCRET$ 


000B SVCTAB$ 


0100 


SYS11 


1E00 SYSERR$ 


1B13 TCB$ 


004E 


TFLAG$ 


007D TIMES 


002D TIMERS 


002C 


TIMFLD 


2153 TIMSL$ 


002B TIMTSK$ 


0713 


TMPMT$ 


04C3 TRACE INT 


07B1 TST09AZ 


2103 


TSTIME 


2094 TYPHKl 


0A8F TYPTSK$ 


0B26 


UNHOOK 


20C1 USTOR$ 


0013 VFLAG$ 


007F 


WAIT 


2051 WRINT$ 


0080 ZEROS 


0401 


ZEROA0 


13A0 






1E00 is the transfer address 






00000 Total errors 
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SYS12/SYS 

SYS12 handles the two mini directory and free space SVCs, as well as locates or checks 
for a memory module header. It contains the code for the SVCs @D0DIR, 0RAMDIR and 
0GTMOD. 
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Page 00001 



000D 
0000 
0000 

1E00 

1E00 E670 
1E02 C8 
1E03 FE30 
1E05 CAAD20 
1E08 FE20 
1E0A CAF01E 
1E0D FE10 
1E0F C0 



1E10 3E07 

1E12 B8 

1E13 3E20 

1E15 D8 

1E16 CD6615 

1E19 78 

1E1A 41 

1E1B 4F 

1E1C F630 

1E1E 321620 

1E21 CD0B21 

1E24 C0 

1E25 04 

1E26 2019 



1E28 E5 

1E29 CD3620 

1E2C 46 

1E2D 2B 

1E2E 4E 

1E2F 2B 

1E30 7E 

1E31 2B 

1E32 6E 

1E33 67 

1E34 ED52 

1E36 EB 

1E37 El 

1E38 73 



00100 
00110 
00120 
00130 
00140 
00160 
00170 
03010 
03020 
03030 
03040 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 



;SYS12/ASM - LS-DOS 6.2 

TITLE <SYS12 - LS-DOS 6.2> 



;Get SYS0/EQU 



CR EQU 13 

*LIST OFF 

*LIST ON 

*GET COPYCOM:3 ;Copyright message 

; COPYCOM - File for Copyright COMment block 



SYS12 



RAMDIR 



COM 



ORG 



<*(C) 1982 s 83 s 84 by LSI*V 



1E00H 



AND 


70H 


RET 


Z 


CP 


30H 


JP 


Z s GTMOD 


CP 


20H 


JP 


Z S MDIR 


CP 


10H 


RET 


NZ 



; Strip bit 7 

;Back on zero entry 

;Locate module address? 

;Mini dir? 

;RAMDIR? 

;Ret if any other entry 



RAMDIR interfacing 
HL = user buffer area 

B = drive # 

C = for entire directory 

C = 1-254 for selected DEC-1 (02-FF) 

C = 255 for disk space; in use/free 



LD 


A,7 


Ck on valid drive # 


CP 


B 




LD 


A,32 


Init "illegal drive 


RET 


C 




CALL 


LNKFCBG 


Save regs 


LD 


A S B 


Get drive where needed 


LD 


B,C 


,Xfer DEC to B 


LD 


C,A 


& drive to C 


OR 


'0' 


Make it ASCII 


LD 


(DSTDRV+1),A 


Stuff for STUFBUF 


CALL 


CKDRV 


Be sure disk is there 


RET 


NZ 




INC 


B 


Jest 0, 1-254, 255 


JR 


NZ.DIRINFO 


,Go if directory req 


Get FREE SPACE info 




PUSH 


HL 


,Save buffer pointer 


CALL 


SPACE 


Get our info 


LD 


B,(HL) 


P/u free space in K 


DEC 


HL 


into BC 


LD 


C,(HL) 




DEC 


HL 




LD 


A,(HL) 


Get total space in K 


DEC 


HL 


, into HL 


LD 


L,(HL) 




LD 


H,A 




SBC 


HL,DE 


,Calc "in use" (CF=0) 


EX 


DE,HL 


Xfer to DE 


POP 


HL 


,Rcvr user buf ptr 


LD 


(HL),E 


.Stuff "in use" 



Page 264 



The Source 


SYSTEM Fil 


es 


SYS12 - LS-DOS 


6.2 Page 00002 


1E39 23 


00680 


INC 


HL 




1E3A 72 


00690 


LD 


(HL) 9 D 




1E3B 23 


00700 


INC 


HL 




1E3C 71 


00710 


LD 


(HL) 9 C 


;Stuff "free to use" 


1E3D 23 


00720 


INC 


HL 




1E3E 70 


00730 


LD 


(HL),B 




1E3F AF 


00740 


XOR 


A 


;Show no error 


1E40 C9 


00750 
00760 ; 


RET 








00770 ; 


Do RAMDIR directory info 




00780 ; 








1E41 05 


00790 DIRINFO 


DEC 


B 


;If DEC=0 9 do it all 


1E42 286C 


00800 


JR 


Z,DOALL 


;Go if all of it 


1E44 04 


00810 
00820 ; 


INC 


B 


;1=>2 9 2=>3 FE=>FF 




00830 ; 


Calcu 


late the number of 


directory sectors 




00840 ; 


= (#sectors x #heads) - 


2 for GAT & HIT 




00850 ; 








1E45 3E07 


00860 


LD 


A 9 7 


;Get highest # sector 


1E47 CD2B1A 


00870 


CALL 


0DCTBYT 




1E4A 57 


00880 


LD 


D 9 A 


;Store heads & sectors 


1E4B E61F 


00890 


AND 


1FH 


;Rake off # sectors 


1E4D 5F 


00900 


LD 


E S A 


; & stuff into E 


1E4E 1C 


00910 


INC 


E 


;Bump for offset 


1E4F AA 


00920 


XOR 


D 


;Recover # heads 


1E50 07 


00930 


RLCA 




; into bits 0-2 


1E51 07 


00940 


RLCA 






1E52 07 


00950 


RLCA 






1E53 3C 


00960 


INC 


A 


;Bump for offset 


1E54 CD0A19 


00970 


CALL 


@MUL8 


;Multiply sectors x heads 


1E57 5F 


00980 


LD 


E 9 A 


;Now check double bit 


1E58 3E04 


00990 


LD 


A, 4 




1E5A CD2B1A 


01000 


CALL 


(3DCTBYT 




1E5D CB6F 


01010 


BIT 


5 9 A 


;Set if 2-sided 


1E5F 7B 


01020 


LD 


A,E 




1E60 2801 


01030 


JR 


Z 9 0NESID 


;Go if not set else 


1E62 87 


01040 


ADD 


A 9 A 


; double value 


1E63 D602 


01050 ONESID 


SUB 


2 


;Reduce for GAT & HIT 


1E65 57 


01060 


LD 


D 9 A 


;D => # dir sectors 


1E66 78 


01070 


LD 


A 9 B 


;Get requested DEC 


1E67 E61F 


01080 


AND 


1FH 




1E69 BA 


01090 


CP 


D 


;See if in range 


1E6A 3804 


01100 


JR 


C.DIRINF1 


;Go if so 


1E6C 3E10 


01110 


LD 


A 9 16 


;"Illegal logical file # 


1E6E B7 


01120 


OR 


A 


;Return out of range error 


1E6F C9 


01130 
01140 ; 


RET 






1E70 E5 


01150 DIRINF1 


PUSH 


HL 


;Save buffer ptr 


1E71 CDBB18 


01160 


CALL 


0DIRRD 


;Get its directory record 


1E74 Dl 


01170 


POP 


DE 


;Rcvr buf ptr 


1E75 C0 


01180 


RET 


NZ 


;Back on an error 


1E76 7E 


01190 


LD 


A,(HL) 


;Get attributes 


1E77 E6D8 


01200 


AND 


0D8H 


;Only if in use & VIS 


1E79 EE10 


01210 


XOR 


10H 


;Flip state so NZ=no 


1E7B 3E19 


01220 


LD 


A, 25 


;Ini t file access denied 


1E7D C0 


01230 


RET 


NZ 


;Back on no file, SYS, INV 


1E7E E5 


01240 GETSTUF 


PUSH 


HL 


;Save DIR ptr 


1E7F CDE11F 


01250 


CALL 


STUFBUF 


;Stuff the filespec 


1E82 El 


01260 


POP 


HL 




1E83 7E 


01270 


LD 


A 9 (HL) 




1E84 E607 


01280 


AND 


7 


;Keep the access level 
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1E86 12 


01290 


LD 


(DE) 5 A 




1E87 13 


01300 


INC 


DE 




1E88 2C 


01310 


INC 


L 


;Go up to EOF offset 


1E89 2C 


01320 


INC 


L 




1E8A 2C 


01330 


INC 


L 




1E8B EDA0 


01340 


LDI 




;Move in the offset & LRL 


1E8D EDA0 


01350 


LDI 






1E8F 7D 


01360 


LD 


A S L 


;Bump to ERN 


1E90 C60F 


01370 


ADD 


A 9 15 




1E92 6F 


01380 


LD 


L,A 




1E93 7E 


01390 


LD 


A,(HL) 


;P/u ERN 


1E94 12 


01400 


LD 


(DE),A 


; and xfer it 


1E95 2C 


01410 


INC 


L 




1E96 13 


01420 


INC 


DE 




1E97 66 


01430 


LD 


H S (HL) 




1E98 6F 


01440 


LD 


L,A 


;# sectors to HL 


1E99 EB 


01450 


EX 


DE,HL 


; hence to DE 


1E9A 72 


01460 


LD 


(HL),D 


;Stuff ERN High-order 


1E9B 23 


01470 


INC 


HL 


;Bump buf ptr 


1E9C 13 


01480 


INC 


DE 


;Adjust for rounding 


1E9D 13 


01490 


INC 


DE 




1E9E 13 


01500 


INC 


DE 




1E9F CB3A 


01510 


SRL 


D 


; Divide by 4 to calc K 


1EA1 CB1B 


01520 


RR 


E 




1EA3 CB3A 


01530 


SRL 


D 




1EA5 CB1B 


01540 


RR 


E 




1EA7 73 


01550 


LD 


(HL) S E 


;Xfer result into buffer 


1EA8 23 


01560 


INC 


HL 




1EA9 72 


01570 


LD 


(HL) S D 




1EAA 23 


01580 


INC 


HL 




1EAB 362B 


01590 


LD 


(HL) s '+« 


; Stuff buffer terminator 


1EAD EB 


01600 


EX 


DE 9 HL 




1EAE AF 


01610 


XOR 


A 




1EAF C9 


01620 
01630 ; 


RET 








01640 ; 


RAMDIR 


- Do all of the 


directory 




01650 ; 








1EB0 EB 


01660 DOALL 


EX 


DE,HL 


; Buffer pointer to DE 


1EB1 CD9B20 


01670 


CALL 


HITRD1 


;Read in the HIT 


1EB4 C0 


01680 


RET 


NZ 


;Exit if read error 


1EB5 1811 


01690 
01700 ; 


JR 


DOALL3 




1EB7 CI 


01710 DOALL1 


POP 


BC 


;Recover HIT pointer lo 


1EB8 2623 


01720 


LD 


H,DIRBUF$<-8 




1EBA 68 


01730 


LD 


L,B 


;Advance to next dir 


1EBB 7D 


01740 DOALL2 


LD 


A,L 


; record of this sector 


1EBC C620 


01750 


ADD 


A, 32 




1EBE 6F 


01760 


LD 


L,A 




1EBF 3007 


01770 


JR 


NC,D0ALL3 


; Bypass if still same 


1EC1 2C 


01780 


INC 


L 


; else point to next one 


1EC2 CB6D 


01790 


BIT 


5,L 


;Finished with 


1EC4 2802 


01800 


JR 


Z,DOALL3 


; this drive? 


1EC6 AF 


01810 


XOR 


A 




1EC7 C9 


01820 
01830 ; 


RET 






1EC8 7E 


01840 D0ALL3 


LD 


A,(HL) 


;P/u HIT entry 


1EC9 B7 


01850 


OR 


A 




1ECA 28EF 


01860 


JR 


Z 9 D0ALL2 


;Jump if spare 


1ECC 45 


01870 


LD 


B,L 


;Save DEC in regB 


1ECD C5 


01880 


PUSH 


BC 


; & to stack 


1ECE 7D 


01890 


LD 


A,L 


;Pt to dir record for 
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1ECF E6E0 


01900 


AND 


0E0H 


; this DEC 


1ED1 6F 


01910 


LD 


L,A 


;Get the dir sector for 


1ED2 A8 


01920 


XOR 


B 


; this DEC 


1ED3 FEFF 


01930 I 


)0ALL4 CP 


0FFH 


;Same as one in core? 


1ED5 2809 


01940 


JR 


Z,D0ALL5 


;Jump if so else 


1ED7 32D41E 


01950 


LD 


(D0ALL4+1),A 


; update one we have and 


1EDA CDBB18 


01960 


CALL 


@DIRRD 


; read it into buffer 


1EDD C2C11F 


01970 


JP 


NZ,MDIR12 


;Jump on read error 


1EE0 261D 


01980 [ 


)0ALL5 LD 


H,SBUFF$<-8 


;Sysbuf hi order 


1EE2 7E 


01990 


LD 


A S (HL) 


;P/u attributes 


1EE3 E6D8 


02000 


AND 


0D8H 


;Test FXDE & in-use 


1EE5 EE10 


02010 


XOR 


10H 


;If not used or FXDE 


1EE7 20CE 


02020 


JR 


NZ,D0ALL1 


; then back to D0ALL1 


1EE9 E5 


02030 


PUSH 


HL 




1EEA CD7E1E 


02040 


CALL 


GETSTUF 


;Get the dir info 


1EED El 


02050 


POP 


HL 




IEEE 18C7 


02060 
02070 


JR 

> 


D0ALL1 






02080 


, Routine to display a mini directory 




02090 


C => 


drive number in b 


inary (0-7) 




02100 


B => 


option, = displ 


ay„ 1 = buffer stuff 




02110 


2 = 


display /EXT, 3 = 


buffer /EXT 




02120 . 


4 = 


space into buffer 






02130 


HL => 


address of buffer 


to stuff dir info & EXT 




02140 


Z <= 


set on valid cone 


lusion 




02150 


NZ <= 


set on any error 






02160 


> 






1EF0 3E07 


02170 f 


1DIR LD 


A,7 


;Test for bad drive # 


1EF2 B9 


02180 


CP 


C 




1EF3 3E20 


02190 


LD 


A, 32 


; I ni t "illegal drive... 


1EF5 08 


02200 


RET 


C 




1EF6 CD0B21 


02210 


CALL 


CKDRV 


;Be sure disk is there 


1EF9 C0 


02220 


RET 


NZ 




1EFA CD6615 


02230 


CALL 


LNKFCB0 


;Save the regs 


1EFD 78 


02240 


LD 


A S B 


;Stuff the option 


1EFE 326B1F 


02250 


LD 


(TST0PT+1),A 




1F01 FE04 


02260 


CP 


4 


;If option 4, go get 


1F03 CA2420 


02270 


JP 


Z,SPACE0 


; space info 


1F06 3E2B 


02280 


LD 


A, 43 


; Ini t "SVC parm error 


1F08 D0 


02290 


RET 


NC 


;Back if option > 4 


1F09 E5 


02300 


PUSH 


HL 


;Save possible buffer 


1F0A C5 


02310 


PUSH 


BC 




1F0B 11B121 


02320 


LD 


DE,LILBUF 


;Save possible /EXT 


1F0E 010300 


02330 


LD 


BC,3 




1F11 EDB0 


02340 


LDIR 






1F13 CI 


02350 


POP 


BC 




1F14 79 


02360 


LD 


A,C 


;Get drive # and 


1F15 F630 


02370 


OR 


'0' 


; make it ASCII 


1F17 321620 


02380 


LD 


(DSTDRV+1),A 




1F1A 3E05 


02390 


LD 


A, 5 


; Ini t to 5 files/line 


1F1C 329F1F 


02400 


LD 


(MDIR11+1),A 




1F1F 3E17 


02410 


LD 


A, 23 


; & 23 lines/page 


1F21 32B01F 


02420 


LD 


(CKPAGE+1),A 




1F24 CD9B20 


02430 


CALL 


HITRD1 


;Read in the HIT 


1F27 Dl 


02440 


POP 


DE 


;Rcvr possible buffer 


1F28 C0 


02450 


RET 


NZ 


;Exit if read error 


1F29 1822 


02460 


JR 


MDIR3 




1F2B CI 


02470 f 


4DIR1 POP 


BC 


;Recover HIT pointer lo 


1F2C 2623 


02480 


LD 


H,DIRBUF$<-8 




1F2E 68 


02490 


LD 


L,B 


;Advance to next dir 


1F2F 7D 


02500 r 


4DIR2 LD 


A,L 


; record of this sector 
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1F30 C620 


02510 


ADD 


A s 32 




1F32 6F 


02520 


LD 


L,A 




1F33 3018 


02530 


JR 


NC.MDIR3 


;Bypass if still same 


1F35 2C 


02540 


INC 


L 


; else point to next one 


1F36 CB6D 


02550 


BIT 


5,L 


;Finished with 


1F38 2813 


02560 


JR 


Z S MDIR3 


; this drive? 


1F3A 3A6B1F 


02570 


LD 


A,(TSTOPT+l) 


;If option 1 or 3, 


1F3D E601 


02580 


AND 


1 


; must stuff buffer end 


1F3F 2007 


02590 


JR 


NZ, CLSBUF 




1F41 3E0D 


02600 


LD 


A,CR 


; else do a blank line 


1F43 CD4206 


02610 


CALL 


(9DSP 




1F46 AF 


02620 


XOR 


A 




1F47 C9 


02630 
02640 ; 


RET 






1F48 3EFF 


02650 CLSBUF 


LD 


A,0FFH 


;Put in buffer terminator 


1F4A 12 


02660 


LD 


(DE),A 




1F4B AF 


02670 


XOR 


A 




1F4C C9 


02680 
02690 ; 


RET 






1F4D 7E 


02700 MDIR3 


LD 


A,(HL) 


;P/u HIT entry 


1F4E B7 


02710 


OR 


A 




1F4F 28DE 


02720 


JR 


Z,MDIR2 


;Jump if spare 


1F51 45 


02730 


LD 


B, L 


;Save DEC in reg B 


1F52 C5 


02740 


PUSH 


BC 


; & to stack 


1F53 7D 


02750 


LD 


A 9 L 


;Pt to dir record for 


1F54 E6E0 


02760 


AND 


0E0H 


; this DEC 


1F56 6F 


02770 


LD 


L S A 


;Get the dir sector for 


1F57 A8 


02780 


XOR 


B 


; this DEC 


1F58 FEFF 


02790 MDIR4 


CP 


0FFH 


;Same as one in core? 


1F5A 2808 


02800 


JR 


Z,MDIR5 


;Jump if so 


1F5C 32591F 


02810 


LD 


(MDIR4+1),A 


;Else update one we have 


1F5F CDBB18 


02820 


CALL 


(PDIRRD 


; and read it into buf 


1F62 205D 


02830 


JR 


NZ 5 MDIR12 


;Jump on read error 


1F64 261D 


02840 MDIR5 


LD 


H s SBUFF$<-8 


;Sysbuf hi order 


1F66 012B1F 


02850 


LD 


BC s MDIRl 


;Set up the return addr 


1F69 C5 


02860 


PUSH 


BC 




1F6A 3E00 


02870 TSTOPT 


LD 


A,0 


;P/u option number 


1F6C E5 


02880 


PUSH 


HL 




1F6D D5 


02890 


PUSH 


DE 




1F6E CDC31F 


02900 


CALL 


TSTSAM 


;Check for extension mate 


1F71 Dl 


02910 


POP 


DE 




1F72 El 


02920 


POP 


HL 




1F73 C0 


02930 


RET 


NZ 


;Back to MDIRl 


1F74 3A6B1F 


02940 


LD 


A,(TSTOPT+l) 




1F77 0F 


02950 


RRCA 




;Test option 1 or 3 


1F78 7E 


02960 


LD 


A,(HL) 




1F79 3013 


02970 


JR 


NC.DSPLYIT 


;6o if or 2 


1F7B E690 


02980 


AND 


90H 


;Test FXDE & in-use 


1F7D EE10 


02990 


XOR 


10H 


;If not used, FXDE 


1F7F C0 


03000 


RET 


NZ 


;Back to MDIRl 


1F80 011000 


03010 


LD 


BC.16 




1F83 EDB0 


03020 


LDIR 




;User's buffer 


1F85 2C 


03030 


INC 


L 


;Bypass stored passwords 


1F86 2C 


03040 


INC 


L 




1F87 2C 


03050 


INC 


L 




1F88 2C 


03060 


INC 


L 




1F89 0E02 


03070 


LD 


C,2 


; and xfer ERN 


1F8B EDB0 


03080 


LDIR 






1F8D C9 


03090 
03100 ; 


RET 




;Back to MDIRl 


1F8E E6D8 


03110 DSPLYI1 


" AND 


0D8H 


;Test if we want this 
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1F90 EE10 
1F92 C0 
1F93 11B421 
1F96 D5 
1F97 CDE11F 
1F9A El 
1F9B CD2D05 
1F9E 3E00 
1FA0 3D 
1FA1 329F1F 
1FA4 C0 
1FA5 3E05 
1FA7 329F1F 
1FAA 3E0D 
1FAC CD4206 
1FAF 3E00 
1FB1 3D 
1FB2 32B01F 
1FB5 C0 
1FB6 3E17 
1FB8 32B01F 
1FBB CD2806 
1FBE C34505 

1FC1 CI 
1FC2 C9 

1FC3 CB4F 
1FC5 C8 
1FC6 010D00 
1FC9 09 
1FCA 0603 
1FCC 11B121 
1FCF 1A 
1FD0 FE24 
1FD2 2808 
1FD4 FE41 
1FD6 3802 
1FD8 CBAF 
1FDA BE 
1FDB C0 
1FDC 23 
1FDD 13 
1FDE 10EF 
1FE0 C9 



1FE1 7D 
1FE2 C605 
1FE4 6F 
1FE5 0E0D 
1FE7 0608 
1FE9 7E 
1FEA 23 
1FEB FE20 
1FED 2807 
1FEF 12 
1FF0 13 
1FF1 0D 
1FF2 10F5 



03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 

03370 

03380 

03390 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03480 

03490 

03500 

03510 

03520 

03530 

03540 

03550 

03560 

03570 

03580 

03590 

03600 

03610 

03620 

03630 

03640 

03650 

03660 

03670 

03680 

03690 

03700 

03710 

03720 



MDIR11 



CKPAGE 



MDIR12 
TSTSAM 



TSTS1 



TSTS2 



STUFBUF 



STUFB1 



XOR 

RET 

LD 

PUSH 

CALL 

POP 

CALL 

LD 

DEC 

LD 

RET 

LD 

LD 

LD 

CALL 

LD 

DEC 

LD 

RET 

LD 

LD 

CALL 

JP 

POP 
RET 

BIT 

RET 

LD 

ADD 

LD 

LD 

LD 

CP 

JR 

CP 

JR 

RES 

CP 

RET 

INC 

INC 

DJNZ 

RET 



10H 

NZ 

DE,LILBUF+3 

DE 

STUFBUF 

HL 

0DSPLY 

A 9 

A 

(MDIR11+D.A 

NZ 

A 5 

(MDIR11+D.A 

A,CR 

@DSP 

A 9 

A 

(CKPAGE+1),A 

NZ 

A 23 

(CKPAGE+1),A 

@KEY 

@CLS 

BC 



1,A 

Z 

BC 9 13 

HL,BC 

B,3 

DE,LILBUF 

A,(DE) 

'$' 

Z S TSTS2 

'A' 

C,$+4 

5, A 

(HL) 

NZ 

HL 

DE 

TSTS1 



;Only if in-use & VIS 
:Back to MDIR1 



;Move filespec to buffer 
;Rcvr LILBUF ptr 
;Display the file 
;Count down 5-across 

;Update count 
;Loop if more to go 
: else re-init 



;New line 

;P/u display count 



;Reset for max 

;Wait for keyboard input 

:Clear screen and ret 



;Ck if /EXT option 
;Ret with Z if 
; option <> /EXT 
;Else point to /EXT 
; field of dir record 
; & check for match 

;'$' matches with all 

;If numeric, don't cvrt 
; to upper case 
;Cvrt to UC if lc 

;Ret on no match 



;Loop for 3 chars 



Routine to construct the filespec field 

;Pt to start of filename 



LD 

ADD 

LD 

LD 

LD 

LD 

INC 

CP 

JR 

LD 

INC 

DEC 

DJNZ 



A,L 
A, 5 
L,A 
C.13 



A,(HL) 
HL 

Z,STUFB2 

(DE),A 

DE 

C 

STUFB1 



;Init for 15 (-2) chars 
;Filename 



;Exit on 1st space 

;Stuff the char 

;String count down 
;Field loop 
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1FF4 1804 


03730 


JR 


STUFB3 


1FF6 7D 


03740 STUFB2 


LD 


A,L 


IFF 7 80 


03750 


ADD 


A,B 


1FF8 3D 


03760 


DEC 


A 


1FF9 6F 


03770 


LD 


L 9 A 


1FFA 7E 


03780 STUFB3 


LD 


A 9 (HL) 


1FFB FE20 


03790 


CP 


' • 


1FFD 2812 


03800 


JR 


Z.STUFB5 


1FFF 3E2F 


03810 


LD 


A,'/' 


2001 12 


03820 


LD 


(DE),A 


2002 13 


03830 


INC 


DE 


2003 0D 


03840 


DEC 


C 


2004 0603 


03850 


LD 


B,3 


2006 7E 


03860 STUFB4 


LD 


A,(HL) 


2007 23 


03870 


INC 


HL 


2008 FE20 


03880 


CP 


i i 


200A 2805 


03890 


JR 


Z.STUFB5 


200C 12 


03900 


LD 


(DE),A 


200D 13 


03910 


INC 


DE 


200E 0D 


03920 


DEC 


C 


200F 10F5 


03930 


DJNZ 


STUFB4 


2011 3E3A 


03940 STUFB5 


LD 


A,*:' 


2013 12 


03950 


LD 


(DE),A 


2014 13 


03960 


INC 


DE 


2015 3E00 


03970 DSTDRV 


LD 


A,0 


2017 12 


03980 


LD 


(DE),A 


2018 13 


03990 


INC 


DE 


2019 3E20 


04000 STUFB6 


LD 


A,' ' 


201B 12 


04010 


LD 


(DE),A 


201C 13 


04020 


INC 


DE 


201D 0D 


04030 


DEC 


C 


201E 20F9 


04040 


JR 


NZ,STUFB6 


2020 3E03 


04050 


LD 


A, 3 


2022 12 


04060 


LD 


(DE),A 


2023 C9 


04070 
04080 ; 


RET 






04090 ; 


Routine to get the free 




04100 ; 






2024 E5 


04110 SPACE0 


PUSH 


HL 


2025 111000 


04120 


LD 


DE.16 


2028 D5 


04130 


PUSH 


DE 


2029 19 


04140 


ADD 


HL,DE 


202A CD3620 


04150 


CALL 


SPACE 


202D CI 


04160 


POP 


BC 


202E Dl 


04170 


POP 


DE 


202F 21D023 


04180 


LD 


HL,DIRBUF$+0D0H 


2032 EDB0 


04190 


LDIR 




2034 AF 


04200 


XOR 


A 


2035 C9 


04210 
04220 ; 


RET 




2036 CD7418 


04230 SPACE 


CALL 


GGATRD 


2039 C0 


04240 


RET 


NZ 


203A FDE5 


04250 


PUSH 


IY 


203C CD1E1A 


04260 


CALL 


(3GTDCT 


203F EB 


04270 


EX 


DE,HL 


2040 2600 


04280 


LD 


H,0 


2042 FD6E06 


04290 


LD 


L,(IY+6) 


2045 23 


04300 


INC 


HL 


2046 FD7E08 


04310 


LD 


A.CIY+8) 


2049 E61F 


04320 


AND 


1FH 


204B 3C 


04330 


INC 


A 



Page 



;Bypass ext calculation 
;Calculate start of 
;EXT field in dir record 



;Di splay EXT if present 

;Exit if no EXT 
;Di splay slash 
; Stuff the char 

;Dsplay char countdown 
;3 chars max for EXT 



;Exit on 1st blank 

: else stuff the char 



;Loop 3 chars 

; Stuff a drive sep 

;Reg C already accounted 

; for in the init 

;P/u drive # 



; Stuff a space 



;Count down 

;Di splay trailing spaces 

;Stuff the ETX 



;Save buf start 
; Index for space 



;Get the space data 
; name & date 
;Now shift in the 
; disk name and date 



;Read GAT 

;Ret on GAT read error 

Get DCT vector 
User buf ptr to DE 
P/u highest # cylinder 
& adjust for offset 

;P/u # of sectors/granule 

;Adjust for zero offset 
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204C F5 


04340 


PUSH 


AF 


;Save # of sectors/gran 


204D D5 


04350 


PUSH 


DE 


;Save user buf ptr 


204E 5F 


04360 


LD 


E,A 




204F FD7E08 


04370 


LD 


A,(IY+8) 


;P/u # of granules/cyl 


2052 E6E0 


04380 


AND 


0E0H 




2054 07 


04390 


RLCA 




; & shift to bits 0-2 


2055 07 


04400 


RLCA 






2056 07 


04410 


RLCA 






2057 3C 


04420 


INC 


A 


;Adjust for zero offset 


2058 CD0A19 


04430 


CALL 


@MUL8 


;Calc # of sectors/cyl 


205B FDCB046E 04440 


BIT 


5,(IY+4) 


;Double sided? 


205F 2801 


04450 


JR 


Z,$+3 


;Bypass if one-sided 


2061 87 


04460 


ADD 


A, A 


; else double the count 


2062 CI 


04470 


POP 


BC 


;Rcvr user buf ptr 


2063 CD8620 


04480 


CALL 


DOMUL16 


;Calculate total sectors 


2066 23 


04490 


INC 


HL 


;Bump to next buf pos 


2067 E5 


04500 


PUSH 


HL 


; & save pointer 


2068 210023 


04510 


LD 


HL,DIRBUF$ 


;Pt to start of GAT 


206B 110000 


04520 


LD 


DE,0 


:Init qran counter 


206E 3ACC23 


04530 


LD 


A,(DIRBUF$+0CCH) ;P/u cyl excess 


2071 C623 


04540 


ADD 


A 9 35 


;Add base 


2073 47 


04550 


LD 


B,A 


;Set loop counter 


2074 7E 


04560 PUGAT 


LD 


A,(HL) 


;P/u GAT byte 


2075 37 


04570 KEEP7 


SCF 




;Keep bit 7 set 


2076 IF 


04580 


RRA 




;Slide gran bit to carry 


2077 3801 


04590 


JR 


C S BYTEND? 


; Ignore if in use 


2079 13 


04600 


INC 


DE 


;Free 9 bump gran counter 


207A FEFF 


04610 BYTEND? 


' CP 


0FFH 


;End of byte? 


207C 20F7 


04620 


JR 


NZ,KEEP7 


;Loop if not 


207E 2C 


04630 


INC 


L 


;Bump GAT byte pointer 


207F 10F3 


04640 


DJNZ 


PUGAT 


;Loop for # cyls 


2081 EB 


04650 


EX 


DE S HL 


;# free grans -> HL 


2082 CI 


04660 


POP 


BC 


;Pop user buf ptr 


2083 Fl 


04670 


POP 


AF 


;Rcvr # of sectors/gran 


2084 FDE1 


04680 


POP 


IY 




2086 CDC906 


04690 D0MUL16 


l/ML L 


(9MUL16 


;Calc # of free sectors 


2089 60 


04700 


LD 


H,B 


;Cvrt # of free sectors 


208A 55 


04710 


LD 


D,L 




208B 69 


04720 


LD 


L,C 


;To free space in K by 


208C 5F 


04730 


LD 


E,A 




208D 13 


04740 


INC 


DE 


; dividing the # by 4 


208E 13 


04750 


INC 


DE 


;Round up adjustment 


208F CB3A 


04760 


SRL 


D 


;Divide 16-bit reg by 2 


2091 CB1B 


04770 


RR 


E 




2093 CB3A 


04780 


SRL 


D 


; & divide again 


2095 CB1B 


04790 


RR 


E 




2097 73 


04800 


LD 


(HL),E 


;Stuff the value 


2098 23 


04810 


INC 


HL 




2099 72 


04820 


LD 


(HL),D 




209A C9 


04830 
04840 ; 


RET 








04850 ; 


Read the hash index 


table 




04860 ; 








209B 210023 


04870 HITRD1 


LD 


HL,DIRBUF$ 


;Pt to buffer 


209E C5 


04880 


PUSH 


BC 




209F D5 


04890 


PUSH 


DE 




20A0 CDF718 


04900 


CALL 


0DIRCYL 


;Dir cyl to reg D 


20A3 1E01 


04910 


LD 


E,l 


;Sector one 


20A5 CDD818 


04920 


CALL 


0RDSSC 




20A8 Dl 


04930 


POP 


DE 




20A9 CI 


04940 


POP 


BC 
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20AA 3E16 
20AC C9 



20AD C5 
20AE 0EFF 
20B0 D5 
20B1 0C 
20B2 1A 
20B3 13 
20B4 FE21 
20B6 30F9 
20B8 Dl 



20B9 21F008 



20BC 7C 
20BD FE13 
20BF 300D 



20C1 C5 

20C2 ED4B0602 

20C6 B7 

20C7 E5 

20C8 ED42 

20CA El 

20CB CI 

20CC 3038 



20CE 7E 
20CF FE18 
20D1 202E 
20D3 E5 
20D4 23 
20D5 23 
20D6 23 
20D7 23 
20D8 7E 
20D9 E60F 
20DB B9 
20DC 2012 
20DE 23 
20DF 47 
20E0 D5 
20E1 1A 
20E2 BE 
20E3 200A 
20E5 23 



04950 

04960 

04970 ; 

04980 ; 

04990 ; 

05000 ; 

05010 ; 

05020 ; 

05030 ; 

05040 GTMOD 

05050 

05060 

05070 GTMl 

05080 

05090 

05100 

05110 

05120 

05130 

05140 

05150 

05160 

05170 

05180 

05190 

05200 GTM2 

05210 

05220 

05230 ; 

05240 ; 

05250 ; 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 

05350 

05360 

05370 GTM2A 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 GTM3 

05530 

05540 

05550 



LD 
RET 



A s 22 



;"HIT read error" 



Routine to locate the address of a module 

DE => pointer to module name 

HL <= address of module start if found 

DE <= address of end-of -module name + 1 if found 

Z <= if found, else NZ & A = 8 



PUSH 

LD 

PUSH 

INC 

LD 

INC 

CP 

JR 

POP 



BC 

C0FFH 

DE 

C 

A,(DE) 

DE 

' '+1 

NC.GTM1 

DE 



;Save this reg pair 
; Ini t length counter 
;Save name start 
;Bump counter 
;Search for end-of-name 



Start search at system core 

LD HL,@$SYS ;Pointer to driver start 

Loop through core searching names 



LD 
CP 
JR 



A,H 

@BYTEI0<-8 

NCGTM2A 



;Are we currently 
; the driver zone ? 
;No - check himem 



In the Driver zone - is it allocated ? 



PUSH 

LD 

OR 

PUSH 

SBC 

POP 

POP 

JR 



BC 

BC,(DVRHI$) 

A 

HL 

HL,BC 

HL 

BC 

NC.GTM8 



Save BC 

P/u next available 
addr in Driver zone. 

Is this module 
accounted for in 
the driver zone ? 



No - get out of d/z 
Does this module have a legal header ? 

;Ck for "JR xx" 



LD 

CP 

JR 

PUSH 

INC 

INC 

INC 

INC 

LD 

AND 

CP 

JR 

INC 

LD 

PUSH 

LD 

CP 

JR 

INC 



A,(HL) 

18H 

NZ,GTM7 

HL 

HL 

HL 

HL 

HL 

A,(HL) 

0FH 

C 

NZ,GTM5 

HL 

B,A 

DE 

A,(DE) 

(HL) 

NZ,GTM4 

HL 



;Exit on non-JR 

;Save pointer to start 

;Advance to length/name 



;P/u length field 
;Strip flags 
;Lengths match? 

;Point to start of name 
;Set loop counter 
;Save user's name pointer 
;Compare the name strings 

;Go if no match 
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20E6 13 
20E7 10F8 
20E9 EB 



20EA El 
20EB El 
20EC CI 
20ED AF 
20EE C9 



20EF Dl 
20F0 El 
20F1 23 
20F2 23 
20F3 7E 
20F4 23 
20F5 66 
20F6 6F 
20F7 23 
20F8 7C 
20F9 B5 
20FA 20C0 
20FC CI 
20FD 3E08 
20FF B7 
2100 C9 



2101 7C 

2102 FE13 
2104 30F6 
2106 2A0E04 
2109 18EC 



210B FDE5 
210D CD1E1A 
2110 FD7E00 
2113 FEC3 
2115 C29D21 

2118 E5 

2119 D5 
211A FD7E06 
211D FDBE05 

2120 D22921 
2123 CDC819 
2126 C2AC21 

2129 FD5605 

212C 1E00 

212E CDD019 

2131 2079 

2133 CDD419 

2136 2074 

2138 FDCB035E 



05560 

05570 

05580 

05590 ; 

05600 ; 

05610 ; 

05620 

05630 

05640 

05650 

05660 

05670 ; 

05680 ; 

05690 ; 

05700 GTM4 

05710 GTM5 

05720 

05730 

05740 

05750 

05760 

05770 

05780 GTM5A 

05790 

05800 

05810 

05820 GTM6 

05830 

05840 

05850 

05860 ; 

05870 ; 

05880 ; 

05890 GTM7 

05900 

05910 

05920 GTM8 

05930 

05940 ; 

05950 ; 

05960 ; 

05970 CKDRV 

05980 

05990 



INC 

DJNZ 

EX 



DE 

GTM3 

DE,HL 



;Name+l to DE 



06010 
06020 
06030 
06040 
06050 
06060 
06070 



06090 ; 

06100 CKDRV1 

06110 

06120 

06130 

06140 

06150 

06160 



Found a match - exit with info 



POP 
POP 
POP 
XOR 
RET 



HL 
HL 
BC 
A 



;Keep DE to name end+1 
;Module start address 
;Reg restoral 
;Set Z-flag for return 



No match - loop to next module 



POP 

POP 

INC 

INC 

LD 

INC 

LD 

LD 

INC 

LD 

OR 

JR 

POP 

LD 

OR 

RET 



DE 

HL 

HL 

HL 

A S (HL) 

HL 

H S (HL) 

L 5 A 

HL 

A S H 

L 

NZ,GTM2 

BC 

A,8 

A 



;Point to last byte used 

;P/u low-order 

;P/u high-order 

;Bump to next address 
;Ck for wrap to zero 

;Loop if not through 

;Restore reg 

;Set "device not aval 1 . , . 



Found non-JR - Advance to high memory? 

;Past driver core? 



LD 
CP 
JR 
LD 
JR 



A,H 

@BYTEI0<-8 

NC S GTM6 

HL S (HIGH$) 

GTM5A 



;Exit with "not found" 
; else p/u himem pointer 
; & hop to it if in use 



Check a drive for availability 



PUSH 

CALL 

LD 

CP 

JP 

PUSH 

PUSH 

LD 

CP 

JP 

CALL 

JP 

LD 

LD 

CALL 

JR 

CALL 

JR 

BIT 



IY 

@GTDCT 

A,(IY+0) 

0C3H 

NZ S CKDR5 

HL 

DE 

A,(IY+6) 

(IY+5) 

NC.CKDRV1 

0RSTOR 

NZ,CKDR7A 

D 9 (IY+5) 

E 9 

@SEEK 

NZ,CKDR7A 

(9RSLCT 

NZ,CKDR7A 

3 s (IY+3) 



We use IY in disk I/O 
Get driver routine addr 
P/u drive vector 
Ck for enabled 
Bypass if disabled 



;Make sure that the current 
; cylinder count is in range 
;Go if in range 
;Restore drive 
;Go if error 

;P/u current track 
;Set for sector 
;Set track info to FDC 
;Go if error 
;Wait until not busy 
;Not there - ret NZ 
;If hard drive, bypass 
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213C 2055 
213E FDCB0466 
2142 202C 

2144 3A0E00 

2147 B7 

2148 3E09 
214A 2803 
214C CB3F 
214E F3 



214F 326121 
2152 212000 



2155 CDA021 
2158 20FB 
215A FDCB047E 
215E 2010 
2160 2600 

2162 CDA021 
2165 28FB 

2167 FB 

2168 212000 
216B CDA021 
216E 20FB 



2170 
2171 
2174 
2177 
2178 
217B 
217D 
2180 
2182 
2183 
2186 
218A 
218C 
218E 
2192 
2193 
2194 
2197 
2199 



F5 

CDF718 

2 1001 D 

5D 

CDD818 

202E 

2ACC1D 

3E22 

85 

FD7706 

FDCB04AE 

CB6C 

2804 

FDCB04EE 

Fl 

07 

FDB603 

E680 

87 



219A 
219A FB 
219B Dl 
219C El 
219D FDE1 



06170 
06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 



INTRON 

s 
s 

CKDR1 

CDCNT 
CKDR2 



CKDR2A 



CKDR2B 



CKDR3 
CKDR3A 



CKDR4 



CKDR5 



JR 

BIT 

JR 

IF 

LD 

OR 

LD 

JR 

SRL 

DI 

ENDIF 

IF 

LD 

ENDIF 

LD 

LD 



NZ S CKDR3A 

4 9 (IY+4) 

NZ.CKDR2B 

@M0D4 

A,(FDDINT$) 

A 

A s 09 

Z 9 INTRON 

A 



@MOD2 
A s 20 

(CDCNT+1) 9 A 
HL 9 0020H 



GAT data update 
If "ALIEN" by pass 
test of index pulses 

;Check 'SMOOTH' state 

;Set MSB of count down 

;Go if not SMOOTH 

; Divide the count by two 



;Store in 'LD H' instruction 
;Set up count (short) 



Test for diskette in drive & rotating 



CALL INDEX 
JR NZ 9 CKDR1 
BIT 7 s (IY+4) 
JR NZ S CKDR2B 
LD H s 00H 
;Count set from above 



CALL 

JR 

IF 

EI 

ENDIF 

LD 

CALL 

JR 



INDEX 

Z S CKDR2 

@M0D4 



HLJ020H 

INDEX 

NZ,CKDR2A 



Test index pulse 
Jump on index 
Check CKDRV inhibit bit 
if on skip index test 
CKDRV counter (long) 

;Test index pulse 
;Jump on no index 

;0K for INTs now 

;Index off wait (short) 

;Jump on index 



Diskette is rotating 



PUSH 

CALL 

LD 

LD 

CALL 

JR 

LD 

LD 

ADD 

LD 

RES 

BIT 

JR 

SET 

POP 

RLCA 

OR 

AND 

ADD 

EQU 

EI 

POP 

POP 

POP 



AF 

0DIRCYL 

HL 9 SBUFF$ 

E,L 

(3RDSSC 

NZ,CKDR7 

HL 9 (SBUFF$+0CCH) 

A,22H 

A,L 

(IY+6) 9 A 

5,(IY+4) 

5 9 H 

Z 9 CKDR3 

5 9 (IY+4) 

AF 

(IY+3) 
80H 

A 9 A 



DE 
HL 
IY 



;Save FDC status 

;Get directory track in D 

;Point to HIT buffer 

;Sector for GAT 

;Read the GAT 

;Jump on error 

;P/u excess tracks 
;Add offset 

;Max track # to DCT 
;Set to side 
;Test double sided 
;Jump if only single 
;Set for side 2 
;Recover FDC status 
;Shift write prot to 7 
; Merge Soft WP bit 
;Strip all but 7 
;Write prot to carry fig 
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219F C9 


06780 
06790 ; 


RET 






21A0 7C 


06800 INDEX 


LD 


A,H 


;Check countdown timer 


21A1 B5 


06810 


OR 


L 




21A2 2807 


06820 


JR 


Z,CKDR7 


;Err exit if 


21A4 2B 


06830 


DEC 


HL 




21A5 CDD419 


06840 


CALL 


0RSLCT 


;Check for index pulse 


21A8 CB4F 


06850 


BIT 


1,A 


;Test index 


21AA C9 


06860 
06870 ; 


RET 






21AB Fl 


06880 CKDR7 


POP 


AF 




21AC 3E08 


06890 CKDR7A 


LD 


A 9 8 


;Set Device not avail 


21AE B7 


06900 


OR 


A 


;Set NZ ret 


21AF 18E9 


06910 
06920 ; 


JR 


CKDR4 


;Exit 


0012 


06930 LILBUF 


DS 


18 




21C3 


06940 LAST 


EQU 


$ 






06950 


IFGT 


$,DIRBUF$ 






06960 


ERR 


'Module too b 


ig' 




06970 


ENDIF 






23FE 


06980 


ORG 


MAXC0R$-2 




23FE C303 


06990 
07000 ; 


DW 


LAST-SYS12 


;Overlay size 


1E00 


07010 


END 


SYS12 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 @@1 


0000 


@@2 


0000 0(93 


0000 @@4 


0000 


GABORT 


1B08 0ADTSK 


1CDA @BANK 


0877 


@BKSP 


1486 0BREAK 


196F (3BYTEI0 


1300 


(3CHNI0 


0689 @CKBRKC 


0553 GCKDRV 


1993 


@CKE0F 


158F 0CKTSK 


1CF5 @CLOSE 


1999 


GCLS 


0545 G>CMNDI 


197E (3CMNDR 


197B 


@CTL 


0623 G»DATE 


07A8 0DBGHK 


199F 


0DCINIT 


19C0 @DCRES 


19C4 PDCSTAT 


19B5 


@DCTBYT 


1A2B 0DEBUG 


19A0 (3DECHEX 


03E1 


(9DIRCYL 


18F7 @DIRRD 


18BB 0DIRWR 


1803 


0DIV16 


06E3 @DIV8 


1927 @DODIR 


19AF 


@D0KEY 


19A9 0DSP 


0642 @DSPLY 


052D 


TERROR 


1B0F @EXIT 


1B0B 0FEXT 


1984 


0FLAGS 


196A 0FNAME 


199C (3FRENCH 


0000 


0FSPEC 


1981 @GATRD 


1874 @GATWR 


1875 


^GERMAN 


0000 @GET 


0638 0GTDCB 


1990 


0GTDCT 


1A1E (9GTMOD 


19B2 @HDFMT 


19E4 


@HEX16 


07BD 0HEX8 


07C2 0HEXDEC 


06F6 


@HIGH$ 


1948 @HITRD 


1897 @HITWR 


1898 


@HZ50 


0000 @ICNFG 


0086 @INIT 


198D 


0INTL 


0000 @ I PL 


1BF2 (9JCL 


0630 


@KBD 


0635 @KEY 


0628 0KEYIN 


0585 


@KITSK 


0089 0KLTSK 


1CD0 (9L0AD 


1B38 


@LOC 


14B3 @LOF 


14DE 0LOGER 


0503 


0LOGOT 


0500 @MOD2 


0000 @M0D4 


FFFF 


@MSG 


0530 @MUL16 


06C9 @MUL8 


190A 


@NMI 


0066 @OPEN 


198A 0OPREG 


0084 


0PARAM 


1987 @PAUSE 


0382 @PEOF 


14A2 


(<»POSN 


1434 0PRINT 


0528 (PPRT 


063D 


@PUT 


0645 0RAMDIR 


19AC @RDHDR 


19D8 


(9RDSEC 


19F4 @RDSSC 


18D8 (aRDTRK 


19E0 


0READ 


1513 ^REMOVE 


19A6 0RENAME 


1996 


@REW 


149B 0RMTSK 


1CD7 GRPTSK 


1CEB 


0RREAD 


1473 @RSLCT 


19D4 (9RST00 


0000 


(3RST08 


0008 @RST10 


0010 @RST18 


0018 


@RST20 


0020 @RST28 


0028 @RST30 


0030 


(9RST38 


0038 @RSTNMI 


0FE9 (3RSTOR 


19C8 


(3RSTREG 


0680 @RUN 


IBID (3RWRIT 


13AD 


0SEEK 


19D0 0SEEKSC 


1421 @SKIP 


1430 


0SLCT 


19BC @SOUND 


0392 (aSTEPI 


19CC 


@TIME 


078D GUSA 


FFFF (aVDCTL 


0B99 


@VDCTL3 


0D38 @VER 


1560 @VRSEC 


19DC 


0WEOF 


14EC 0WHERE 


1979 0WRITE 


1531 


(aWRSEC 


19E8 0WRSSC 


19EC @WRTRK 


19F0 


(a VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 AFLAG$ 


006A 


AUTO? 


1FF1 BAR$ 


0201 BOOTSTS 


439D 


BREAK? 


1C60 BRKVEC$ 


1C88 BUR$ 


0200 


BYTEND? 


207A CASHK$ 


0A7B CDCNT 


2160 


CFCB$ 


00E0 CFGFCB$ 


00E0 CFLAGS 


006C 


CKDR1 


2155 CKDR2 


2162 CKDR2A 


216B 


CKDR2B 


2170 CKDR3 


2192 CKDR3A 


2193 


CKDR4 


219A CKDR5 


219D CKDR7 


21AB 


CKDR7A 


21AC CKDRV 


210B CKDRV1 


2129 


CKMOD0 


1A7F CKOPENta 


1568 CKPAGE 


1FAF 


CLSBUF 


1F48 CONFIG$ 


203F CORES 


0300 


CR 


000D CRTBGN$ 


F800 CYL GRN 


16AE 


D0FBYT8 


1A26 DATES 


0033 DAYTBU 


04C7 


DBGSVS 


00A0 DCBKLS 


0031 DCT$ 


0470 
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DCTBYT80 1A29 

DIRBUF$ 2300 

DIS_DO_RAM 0846 

D0ALL2 1EBB 

D0ALL5 1EE0 

DOMUL16 2086 

DO_INVERT_DIS 0C8C 

D0_MASK 0000 

D0_SCR0LL 0CCE 

DSPLYIT 1F8E 

DVRENDS 0FF4 

ENADIS_DO_RAM 0817 

FEMSKS 006F 

GET @_R0WC0L 0DAE 

GTMlA 20CE 

GTM5 20F0 

GTM7 2101 

HERTZ$ 0750 

HKRES$ 1A6C 

INDEX 21A0 

INTRON 214F 

JDCB$ 0024 

JRET$ 0026 

KFLAG$ 0074 

LAST 21C3 

LFLAG$ 0075 

L0W$ 001 E 

MAXDAY$ 0401 

MDIR11 1F9E 

MDIR3 1F4D 

MINCORS 3000 

NFLAG$ 0077 

OPREG_SV_AREA 086E 

0SRLS$ 003B 

PAKNAMS 0410 

PDRV$ 001B 

PUGAT 2074 

PUT_@_ROWCOL 0DC6 

R0WC0L_2_ADDR 0DD0 

RWRIT@ 13A2 

SET0EXEC 1A79 

SFLAG$ 007C 

SPACE 2036 

STACKS 0380 

STUFB2 1FF6 

STUFB5 2011 

SVCRET$ 000B 

SYSERRS 1B13 

TIMES 002D 

TIMTSK$ 0713 

TSTOPT 1F6A 

TSTSAM 1FC3 

USTOR$ 0013 

ZEROS 0401 

00000 Total errors 



DCTFLD@ 1A34 

DIRINF1 1E70 

DOALL 1EB0 

D0ALL3 1EC8 

DODATAS 0B94 

DO_CONTROL 0C44 

DO_INVERT_ENA 0C89 

DO_RET 0BCB 

DO_TABS 0BEA 

DSTDRV 2015 

DVRHI$ 0206 

EXTDBGS 19A4 

FLGTAB$ 006A 

GTM1 20B1 

GTM3 20E1 

GTM5A 20F7 

GTM8 2106 

HIGHS 040E 

IF LAGS 0072 

INTIMS 003C 

INTVCS 003E 

JFCBS 00C0 

KCK@ 07D6 

KIDATAS 08FC 

LBANKS 0202 

LILBUF 21B1 

LSVCS 000D 

MDIR 1EF0 

MDIR12 1FC1 

MDIR4 1F58 

MODOUTS 0076 

ONESID 1E63 

OPREG_SV__PTR 0835 

OSVERS 0085 

PAUSED 0382 

PHIGHS 001C 

PUTA0DE 0DCD 

RAMDIR 1E10 

RST38@ 1BFF 

S1DCBS 0238 

SET_SCROLL 0CF3 

SIDCBS 0220 

SPACE0 2024 

STARTS 0000 

STUFB3 1FFA 

STUFB6 2019 

SVCTABS 0100 

TCBS 004E 

TIMERS 002C 

TMPMTS 04C3 

TSTS1 1FCF 

TYPHKS 0A8F 

VFLAGS 007F 

ZEROA? 13A0 



DFLAGS 006 D 

DIRINFO 1E41 

DOALL1 1EB7 

D0ALL4 1ED3 

DODCBS 0210 

DO_DSPCHAR 0CB8 

DO_INVERT_OFF 0C9B 

DO_RETl 0BCC 

DSKTYPS 04C0 

DTPMTS 04C2 

EFLAGS 006E 

FDDINTS 000E 

GETSTUF 1E7E 

GTM2 20BC 

GTM4 20EF 

GTM6 20FC 

GTMOD 20AD 

HITRD1 209B 

INBUFS 0420 

INTMSKS 003D 

JCLCBS 0203 

JLDCBS 0230 

KEEP7 2075 

KIDCBS 0208 

LDRVS 0023 

LNKFCB0 1566 

MAXCORS 2400 

MDIR1 1F2B 

MDIR2 1F2F 

MDIR5 1F64 

MONTBLS 04DC 

OPREGS 0078 

ORARET0 14DC 

OVRLYS 0069 

PCSAVES 07AF 

PRDCBS 0218 

PUTja 0DCA 

RFLAGS 007B 

RSTORS 04C4 

SBUFFS 1D00 

SFCBS 008C 

SODCBS 0228 

SPACE4S 2142 

STUFB1 1FE9 

STUFB4 2006 

STUFBUF 1FE1 

SYS12 1E00 

TFLAGS 007D 

TIMSLS 002B 

TRACE_INT 07B1 

TSTS2 1FDC 

TYPTSKS 0B26 

WRINTS 0080 
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SYS13/SYS 

SYS13 holds the place of an extended command interpreter. It performs no function, 
but is on the disk to set the proper attributes to any file copied over it to act as 
an extended interpreter. It also prevents a system hangup if the extended interpreter 
flag (EFLAG$) is set without the presence of a user file in the SYS13 directory slot. 
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0000 

0000 
000A 
0000 



0000 



1E00 

1E00 1820 

1E02 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

1E22 E670 
1E24 FE70 
1E26 CA381E 
1E29 3E65 
1E2B EF 
1E2C FD360400 
1E30 21401E 
1E33 3E0C 
1E35 EF 
1E36 AF 
1E37 C9 

1E38 21741E 
1E3B 3E0C 
1E3D EF 
1E3E AF 
1E3F C9 

1E40 4E 

6F 20 45 
65 64 20 
6E 64 20 
70 72 65 

72 65 73 
61 73 20 
20 0A 0D 

1E74 4E 

6F 20 63 

64 20 3C 

65 73 65 

73 20 53 
0A 0D 



1E00 



00100 ;SYS13/ASM - LS-DOS 6.2 

00110 TITLE <SYS13 - LS-DOS 6.2> 

00120 ; 

00130 CR EQU 13 

00140 LF EQU 10 

00150 *GET C0PYCOM:3 ;Copyright message 

00010 ; COPYCOM - File for Copyright COMment block 



00030 

00040 ; 

00160 ; 

00170 

00180 ; 

00190 SYS13 JR 

00200 DC 



COM 
ORG 



00 00 
00 00 
00 00 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
78 74 
43 6F 
49 6E 
74 65 
65 6E 
53 59 



00 00 00 
00 00 

START AND 
CP 
JP 

N0SYS13 LD 
RST 
LD 
LD 
LD 
RST 
XOR 
RET 



NOCMD 



LD 

LD 

RST 

XOR 

RET 



NXCI$ DB 
65 6E 64 
6D 6D 61 
74 65 72 
72 20 50 
74 2C 20 
53 31 33 



00410 NOCMD$ DB 
6F 6D 6D 61 6E 
2A 3E 20 70 72 
6E 74 2C 20 61 
59 53 31 33 20 

00420 ; 

00430 *LIST OFF 

00450 *LIST ON 

00460 ; 

00470 END 



<*(C) 1982,83,84 by LSI*>' 



1E00H 

START 
32,0 



;Slack 



70H 

70H 

Z, NOCMD 

A.101 



Strip bit 7 
Go if 0111,1 

to no * command 
;Get flags 



(IY+'E'-'A'M ;Reset ECI flag 
HL,NXCI$ ;"No ECI present... 
A, 12 ;Display and log it 

40 
A 



HL,NOCMD$ 
A, 12 
40 
A 



;"No sysl3.. . 

;Di splay and log it 



No Extended Command Interpreter Present, as SYS13 ',LF,CR 



No command <*> present, as SYS13 ',LF,CR 



;500 spare bytes 



SYS13 
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@@1 
0(94 
NOCMD 
NXCI$ 



0000 @@2 
0000 CR 
1E38 N0CMD$ 
1E40 START 



0000 @@3 
000 D LF 
1E74 N0SYS13 
1E22 SYS13 



0000 



1E29 
1E00 



1E00 is the transfer address 
00000 Total errors 
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0000 

08F0 
0000 
0000 
0000 



0877 
1300 
0689 
0553 
0545 
0623 
07A8 
06E3 
0642 
052D 



0000 
0638 
07BD 
07C2 
06F6 
0000 
0000 
0630 
0635 
0628 
0585 
0089 
0503 
0500 
0000 
FFFF 
0530 
06C9 
0084 
0528 
063D 
0645 
0FE9 



078D 
FFFF 
0B99 
0D38 
0D42 
0DF1 
0201 
439D 
0200 
0A7B 
006C 
0300 
F800 
0033 
04C7 
0031 
0470 
006 D 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 



;LDOS60/EQU - 
TITLE 

@$SYS EQU 
(3@1 DEFL 

(a@2 DEFL 

(903 DEFL 

(a@4 DEFL 

@BANK EQU 
@BYTEIO EQU 
0CHNIO EQU 
(3CKBRKC EQU 
@CLS EQU 
@CTL EQU 
@DATE EQU 
0DIV16 EQU 
@DSP EQU 
@DSPLY EQU 
(9FRENCH EQU 
@GERMAN EQU 
@GET EQU 
(3HEX16 EQU 
0HEX8 EQU 
0HEXDEC EQU 
0HZ50 EQU 



0INTL 
(3JCL 
@KBD 
@KEY 



EQU 
EQU 
EQU 
EQU 



Equates from cross reference of Lowcore 
<LDOS60/EQU> 

08F0H 
0000H 
0000H 



0KEYIN EQU 
0KITSK EQU 
@LOGER EQU 
@LOGOT EQU 
(?MOD2 EQU 
@M0D4 EQU 
@MSG EQU 
@MUL16 EQU 
0OPREG EQU 
0PRINT EQU 
@PRT EQU 
@PUT EQU 
@RSTNMI EQU 
0RSTREG EQU 
0TIME EQU 
@USA EQU 
@VDCTL EQU 
(3VDCTL3 EQU 
(M/DCTL EQU 
ADDR__2_ROWCOL 
BAR$ EQU 
BOOTST$ EQU 
BUR$ EQU 
CASHK$ EQU 
CFLAG$ EQU 
CORES DEFL 
CRTBGN$ EQU 
DATES EQU 
DAYTBL$ EQU 
DCBKL$ EQU 
DCT$ EQU 
DFLAG$ EQU 



0877H 
1300H 
0689H 
0553H 
0545 H 
0623H 
07A8H 
06E3H 
0642 H 
052DH 



0638H 
07BDH 
07C2H 
06F6H 



0630H 
0635H 
0628H 
0585H 
0089H 
0503H 
0500H 



0FFFFH 

0530H 

06C9H 

0084 H 

0528H 

063DH 

0645H 

0FE9H 

0680H 

078DH 

0FFFFH 

0B99H 

0D38H 

0D42H 

EQU 

0201 H 

439DH 

0200H 

0A7BH 

006 CH 

0300H 

0F800H 

0033H 

04C7H 

0031 H 

0470H 

006 DH 



0DF1H 
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The Source 


SYSTEM Files 


LDOS60/EQU 


0846 


00710 DIS DO RAM 


EQU 


0846H 


0B94 


00720 DODATAl EQU 


0B94H 




0210 


00730 DODCB$ EQU 


0210H 




0C44 


00740 DO CONTROL 


EQU 


0C44H 


0CB8 


00750 DO DSPCHAR 


EQU 


0CB8H 


0C8C 


00760 DO INVERT DIS 


EQU 


0C8CH 


0C89 


00770 DO INVERT ENA 


EQU 


0C89H 


0C9B 


00780 DO INVERT OFF 


EQU 


0C9BH 


0000 


00790 DO MASK EQU 


0000H 




0BCB 


00800 DO RET EQU 


0BCBH 




0BCC 


00810 DO RET1 EQU 


0BCCH 




0CCE 


00820 DO SCROLL 


EQU 


0CCEH 


0BEA 


00830 DO TABS EQU 


0BEAH 




04C0 


00840 DSKTYP$ EQU 


04C0H 




04C2 


00850 DTPMT$ EQU 


04C2H 




0FF4 


00860 DVREND$ EQU 


0FF4H 




0206 


00870 DVRHI$ EQU 


0206H 




0817 


00880 ENADIS DO RAM 


EQU 


0817H 


000E 


00890 FDDINTl EQU 


000EH 




006A 


00900 FLGTAB$ EQU 


006 AH 




0DAE 


00910 GET @ ROWCOL 


EQU 


0DAEH 


0750 


00920 HERTZf EQU 


0750H 




040E 


00930 HIGHS EQU 


040EH 




0072 


00940 IFLAG$ EQU 


0072H 




0420 


00950 INBUF$ EQU 


0420H 




003E 


00960 INTVC$ EQU 


003EH 




0203 


00970 JCLCB$ EQU 


0203H 




0230 


00980 JLDCB$ EQU 


0230H 




07 D6 


00990 KCK@ EQU 


07D6H 




0074 


01000 KFLAG$ EQU 


0074H 




08FC 


01010 KIDATA$ EQU 


08FCH 




0208 


01020 KIDCB$ EQU 


0208H 




0202 


01030 LBANK$ EQU 


0202H 




0401 


01040 MAXDAY$ EQU 


0401 H 




0076 


01050 MODOUT$ EQU 


0076H 




04 DC 


01060 MONTBLS EQU 


04DCH 




0077 


01070 NFLAG$ EQU 


0077H 




0078 


01080 OPREG$ EQU 


0078H 




086E 


01090 OPREG SV AREA 


EQU 


086EH 


0835 


01100 OPREG SV PTR 


EQU 


0835H 


0410 


01110 PAKNAM$ EQU 


0410H 




0382 


01120 PAUSED EQU 


0382H 




07AF 


01130 PCSAVE$ EQU 


07AFH 




001 B 


01140 PDRV$ EQU 


001 BH 




0218 


01150 PRDCB$ EQU 


0218H 




0DCD 


01160 PUTA0DE EQU 


0DCDH 




0DCA 


01170 PUT @ EQU 


0DCAH 




0DC6 


01180 PUT @ ROWCOL 


EQU 


0DC6H 


007B 


01190 RFLAGl EQU 


007BH 




0DD0 


01200 ROWCOL 2 ADDR 


EQU 


0DD0H 


04C4 


01210 RSTOR$ EQU 


04C4H 




0238 


01220 S1DCB$ EQU 


0238H 




0CF3 


01230 SET SCROLL 


EQU 


0CF3H 


007C 


01240 SFLAG$ EQU 


007CH 




0220 


01250 SIDCB$ EQU 


0220H 




0228 


01260 SODCB$ EQU 


0228H 




0380 


01270 STACKS EQU 


0380H 




0000 


01280 STARTS EQU 


0000 H 




002D 


01290 TIMES EQU 


002 DH 




002C 


01300 TIMERS EQU 


002CH 




002B 


01310 TIMSLS EQU 


002BH 
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The Source 


SYSTEM Files 


LD0S6! 


0713 


01320 TIMTSK$ EQU 


0713H 


04C3 


01330 TMPMT$ EQU 


04C3H 


07B1 


01340 TRACE INT 


EQU 


0A8F 


01350 TYPHK$ EQU 


0A8FH 


0B26 


01360 TYPTSK$ EQU 


0B26H 


007F 


01370 VFLAG$ EQU 


007FH 


0401 


01380 ZEROS EQU 
01390 ; 


0401 H 


No end statement 




00000 Total 


errors 





Page 
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The Source 



SYSTEM Files 



SYS0/EQU 



Page 00001 



03B7 
03 B8 
03B9 
1470 
08F0 



0000 
0000 
0000 



1B08 
1CDA 
0877 
1486 
196F 
1300 
0689 
0553 
1993 
158F 
1CF5 
1999 
0545 
197E 
197B 
0623 
07A8 
199F 
19C0 
19C4 
19B5 
1A2B 
19A0 
03E1 
18F7 
18BB 
1803 
06 E3 
1927 
19AF 
19A9 
0642 
052D 
1B0F 
1B0B 
1984 
196 A 
199C 



1981 
1874 
1875 



00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 



;SYS0/EQU - Equates from cross reference of Sysres 
TITLE <SYS0/EQU> 



00420 
00430 



00450 
00460 
00470 
00480 
00490 



00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 



0638 
1990 



00700 



$A1 EQU 

$A2 EQU 

$A3 EQU 

$CKE0F EQU 

(3$SYS EQU 

0(31 DEFL 

@(31 DEFL 

(3@2 DEFL 

(3(32 DEFL 

(3@3 DEFL 

(3@3 DEFL 

(3(34 DEFL 

(3(34 DEFL 

(3ABORT EQU 

(3ADTSK EQU 

(3 BANK EQU 

(3BKSP EQU 

(3BREAK EQU 

(3BYTEIO EQU 

(3CHNIO EQU 

(3CKBRKC EQU 

(3CKDRV EQU 

(3CKEOF EQU 

(3CKTSK EQU 

(3CLOSE EQU 

@CLS EQU 

@CMNDI EQU 

(3CMNDR EQU 

(3CTL EQU 

(3DATE EQU 

(3DBGHK EQU 

(3DCINIT EQU 

(3DCRES EQU 

(3DCSTAT EQU 

(3DCTBYT EQU 

(3DEBUG EQU 

(3DECHEX EQU 

(3DIRCYL EQU 

@DIRRD EQU 

0DIRWR EQU 

(3DIV16 EQU 

(3DIV8 EQU 

(3D0DIR EQU 

(3D0KEY EQU 

@DSP EQU 

(3DSPLY EQU 

TERROR EQU 

(3EXIT EQU 

(3FEXT EQU 

0FLAGS EQU 

(3FNAME EQU 

^FRENCH EQU 

0FSPEC EQU 

0GATRD EQU 

C3GATWR EQU 

(3GERMAN EQU 

@GET EQU 

@GTDCB EQU 



03B7H 
03B8H 
03B9H 
1470H 
08F0H 
0000H 
0000 H 



0000 H 
0000H 
0000H 



0000H 
1B08H 
1CDAH 
0877H 
1486H 
196FH 
1300H 
0689H 
0553H 
1993H 
158FH 
1CF5H 
1999H 
0545H 
197EH 
197BH 
0623H 
07A8H 
199FH 
19C0H 
19C4H 
19B5H 
1A2BH 
19A0H 
03E1H 
18F7H 
18BBH 
1803 H 
06E3H 
1927H 
19AFH 
19A9H 
0642H 
052DH 
1B0FH 
1B0BH 
1984H 
196AH 
199CH 



1981H 
1874H 
1875H 



0638H 
1990H 
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The Source 


SYSTEM Fil< 


BS 


SYS0/E( 


1A1E 


00710 GGTDCT 


EQU 


1A1EH 


19B2 


00720 @GTMOD 


EQU 


19B2H 


19E4 


00730 0HDFMT 


EQU 


19E4H 


07BD 


00740 0HEX16 


EQU 


07BDH 


07C2 


00750 (9HEX8 


EQU 


07C2H 


06F6 


00760 0HEXDEC 


EQU 


06F6H 


1948 


00770 @HIGH$ 


EQU 


1948H 


1897 


00780 @HITRD 


EQU 


1897H 


1898 


00790 0HITWR 


EQU 


1898H 


0000 


00800 @ HZ 50 


EQU 


0000H 


0086 


00810 (PICNFG 


EQU 


0086H 


198D 


00820 GINIT 


EQU 


198DH 


0000 


00830 INTL. 


EQU 


0000H 


1BF2 


00840 GIPL 


EQU 


1BF2H 


0630 


00850 @JCL 


EQU 


0630H 


0635 


00860 (9KBD 


EQU 


0635H 


0628 


00870 @KEY 


EQU 


0628H 


0585 


00880 @KEYIN 


EQU 


0585H 


0089 


00890 @KITSK 


EQU 


0089 H 


0089 


00900 @KITSK 


EQU 


0089H 


1CD0 


00910 @KLTSK 


EQU 


1CD0H 


1B38 


00920 0LOAD 


EQU 


1B38H 


14B3 


00930 @LOC 


EQU 


14B3H 


14DE 


00940 @LOF 


EQU 


14DEH 


0503 


00950 0LOGER 


EQU 


0503H 


0500 


00960 0LOGOT 


EQU 


0500H 


0000 


00970 @M0D2 


EQU 


0000H 


FFFF 


00980 (3M0D4 


EQU 


0FFFFH 


0530 


00990 @MSG 


EQU 


0530H 


06C9 


01000 @MUL16 


EQU 


06C9H 


190A 


01010 @MUL8 


EQU 


190AH 


0066 


01020 @NMI 


EQU 


0066H 


198A 


01030 @OPEN 


EQU 


198AH 


0084 


01040 @OPREG 


EQU 


0084 H 


1987 


01050 @PARAM 


EQU 


1987H 


0382 


01060 @PAUSE 


EQU 


0382H 


14A2 


01070 @PEOF 


EQU 


14A2H 


1434 


01080 @POSN 


EQU 


1434H 


0528 


01090 0PRINT 


EQU 


0528H 


063D 


01100 @PRT 


EQU 


063DH 


0645 


01110 (9PUT 


EQU 


0645H 


19AC 


01120 0RAMDIR 


EQU 


19ACH 


19D8 


01130 0RDHDR 


EQU 


19D8H 


19F4 


01140 (s>RDSEC 


EQU 


19F4H 


18D8 


01150 (3RDSSC 


EQU 


18D8H 


19E0 


01160 0RDTRK 


EQU 


19E0H 


1513 


01170 @READ 


EQU 


1513H 


19A6 


01180 @REMOVE 


EQU 


19A6H 


1996 


01190 ^RENAME 


EQU 


1996H 


149B 


01200 GREW 


EQU 


149BH 


1CD7 


01210 0RMTSK 


EQU 


1CD7H 


1CEB 


01220 (3RPTSK 


EQU 


1CEBH 


1473 


01230 (3RREAD 


EQU 


1473H 


19D4 


01240 @RSLCT 


EQU 


19D4H 


0000 


01250 0RST00 


EQU 


0000H 


0008 


01260 0RST08 


EQU 


0008H 


0010 


01270 @RST10 


EQU 


0010H 


0018 


01280 0RST18 


EQU 


0018H 


0020 


01290 @RST20 


EQU 


0020H 


0028 


01300 @RST28 


EQU 


0028H 


0030 


01310 @RST30 


EQU 


0030H 
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The Source 


SYSTEM Fil 


es 


0038 


01320 @RST38 


EQU 


0FE9 


01330 0RSTNMI 


EQU 


19C8 


01340 (3RSTOR 


EQU 


0680 


01350 (9RSTREG 


EQU 


IBID 


01360 @RUN 


EQU 


13AD 


01370 (3RWRIT 


EQU 


19D0 


01380 @SEEK 


EQU 


1421 


01390 0SEEKSC 


EQU 


1430 


01400 (3SKIP 


EQU 


19BC 


01410 @SLCT 


EQU 


0392 


01420 0SOUND 


EQU 


19CC 


01430 0STEPI 


EQU 


078D 


01440 0TIME 


EQU 


FFFF 


01450 @USA 


EQU 


0B99 


01460 0VDCTL 


EQU 


0D38 


01470 0VDCTL3 


EQU 


1560 


01480 @VER 


EQU 


19DC 


01490 0VRSEC 


EQU 


14EC 


01500 @WEOF 


EQU 


1979 


01510 @WHERE 


EQU 


1531 


01520 0WRITE 


EQU 


19E8 


01530 0WRSEC 


EQU 


19EC 


01540 @WRSSC 


EQU 


19F0 


01550 @WRTRK 


EQU 


0D42 


01560 @ VDCTL 


EQU 


0DF1 


01570 ADDR 2 1 


ROWCOL 


006A 


01580 AFLA6$ 


EQU 


1FF1 


01590 AUTO? 


EQU 


0201 


01600 BAR$ 


EQU 


439D 


01610 BOOTST$ EQU 


1C60 


01620 BREAK? 


EQU 


1C88 


01630 BRKVECS 


EQU 


0200 


01640 BUR$ 


EQU 


0A7B 


01650 CASHK$ 


EQU 


00E0 


01660 CFCB$ 


EQU 


00E0 


01670 CFGFCB$ EQU 


006C 


01680 CFLAG$ 


EQU 


006C 


01690 CFLAG$ 


EQU 


1A7F 


01700 CKMOD0 


EQU 


1568 


01710 CKOPEN@ 


EQU 


203F 


01720 CONFIG$ EQU 


ICFF 


01730 CORES 


DEFL 


1BFF 


01740 CORES 


DEFL 


1948 


01750 CORES 


DEFL 


1948 


01760 CORES 


DEFL 


0300 


01770 CORES 


DEFL 


F800 


01780 CRTBGNS EQU 


16AE 


01790 CYL GRN EQU 


1A26 


01800 D0FBYT8 


EQU 


0033 


01810 DATES 


EQU 


0033 


01820 DATES 


EQU 


04C7 


01830 DAYTBLS 


EQU 


00A0 


01840 DBGSVS 


EQU 


0031 


01850 DCBKLS 


EQU 


0470 


01860 DCT$ 


EQU 


1A29 


01870 DCTBYT80 


1A34 


01880 DCTFLD0 


EQU 


006 D 


01890 DFLAGS 


EQU 


006D 


01900 DFLAGS 


EQU 


2300 


01910 DIRBUFS 


EQU 


0846 


01920 DIS DO [ 


1AM 



SYS0/EQU 

0038H 

0FE9H 

19C8H 

0680H 

1B1DH 

13ADH 

19D0H 

1421H 

1430H 

19BCH 

0392H 

19CCH 

078DH 

0FFFFH 

0B99H 

0D38H 

1560H 

19DCH 

14ECH 

1979H 

1531H 

19E8H 

19ECH 

19F0H 

0D42H 

EQU 

006AH 

1FF1H 

0201H 

439DH 

1C60H 

1C88H 

0200H 

0A7BH 

00E0H 

00E0H 

006CH 

006CH 

1A7FH 

1568H 

203FH 

1CFFH 

1BFFH 

1948H 

1948H 

0300H 

0F800H 

16AEH 

1A26H 

0033H 

0033H 

04C7H 

00A0H 

0031 H 

0470H 

EQU 

1A34H 

006 DH 

006 DH 

2300H 

EQU 
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0DF1H 



1A29H 



0846 H 
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The Source 



SYSTEM Files 



SYS0/EQU 



Page 



0B94 
0210 
0C44 
0CB8 
0C8C 
0C89 
0C9B 
0000 
0BCB 
0BCC 
0CCE 
0BEA 
04C0 
04C2 
0FF4 
0206 

006 E 
0817 
19A4 
000E 
000E 
006F 
006A 
006A 
0DAE 
0750 
040E 
1A6C 
0072 
0072 
0420 
003C 

003 D 
003E 
003E 
0203 
0024 
00C0 
0230 
0026 

07 D6 
0074 
0074 
08FC 
0208 
0202 
0023 
0075 
1566 
001 E 
000D 
2400 
0401 
3000 
0076 
0076 

04 DC 
0077 
0078 
0078 
086 E 



01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 



D0DATA$ EQU 
DODCB$ EQU 
D0_C0NTR0L 
DO_DSPCHAR 
DO_INVERT_DIS 
DO_INVERT_ENA 
DO_INVERT_OFF 
D0_MASK EQU 
D0_RET EQU 
DO_RETl EQU 
DO_SCROLL 
D0_TABS EQU 
DSKTYP$ EQU 
DTPMT$ EQU 
DVREND$ EQU 
DVRHI$ EQU 
EFLAG$ EQU 
ENADIS DO_RAM 
EXTDBGl EQU 
FDDINT$ EQU 
FDDINT$ EQU 
FEMSK$ EQU 
FLGTAB$ EQU 
FLGTAB$ EQU 
GET_@ ROWCOL 
HERTZf EQU 



HIGH$ 

HKRES$ 

IFLAG$ 

IFLAG$ 

INBUF$ 

INTIM$ 

INTMSK$ EQU 

INTVC$ EQU 

INTVC$ 

JCLCB$ 

JDCB$ 

JFCB$ 

JLDCB$ 

JRET$ 

KCKG 

KFLAG$ 

KFLAG$ 

KIDATA$ EQU 

KIDCB$ EQU 

LBANK$ 

LDRV$ 

LFLAG$ 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



LNKFCBG EQU 
LOW$ EQU 
LSVC$ EQU 
MAXCOR$ EQU 
MAXDAY$ EQU 
MINCOR$ EQU 
MODOUT$ EQU 
MODOUT$ EQU 
MONTBL$ EQU 
NFLAG$ EQU 
OPREG$ EQU 
OPREG$ EQU 
OPREG SV AREA 



0B94H 

0210H 

EQU 

EQU 

EQU 

EQU 

EQU 

0000H 

0BCBH 

0BCCH 

EQU 

0BEAH 

04C0H 

04C2H 

0FF4H 

0206 H 

006EH 

EQU 

19A4H 

000EH 

000EH 

006FH 

006AH 

006AH 

EQU 

0750H 

040EH 

1A6CH 

0072H 

0072H 

0420H 

003CH 

003DH 

003EH 

003 EH 

0203H 

0024H 

00C0H 

0230H 

0026H 

07D6H 

0074H 

0074H 

08FCH 

0208H 

0202H 

0023H 

0075H 

1566H 

001EH 

000DH 

2400H 

0401 H 

3000H 

0076H 

0076H 

04DCH 

0077H 

0078H 

0078H 

EQU 



0C44H 
0CB8H 
0C8CH 
0C89H 
0C9BH 



0CCEH 



0817H 



0DAEH 



086EH 
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The Source 


SYSTEM Files 


SYS0/EQU 


0835 


02540 OPREG SV PTR 


EQU 0835H 


14DC 


02550 ORARETG EQU 


14DCH 


003 B 


02560 OSRLS$ EQU 


003BH 


0085 


02570 OSVER$ EQU 


0085 H 


0069 


02580 OVRLY$ EQU 


006 9 H 


0410 


02590 PAKNAM$ EQU 


0410H 


0382 


02600 PAUSED EQU 


0382H 


07AF 


02610 PCSAVE$ EQU 


07AFH 


001 B 


02620 PDRV$ EQU 


001 BH 


001 B 


02630 PDRV$ EQU 


001 BH 


001C 


02640 PHIGH$ EQU 


001CH 


0218 


02650 PRDCB$ EQU 


0218H 


0DCD 


02660 PUTA@DE EQU 


0DCDH 


0DCA 


02670 PUT @ EQU 


0DCAH 


0DC6 


02680 PUT @ ROWCOL 


EQU 0DC6H 


007B 


02690 RFLAGl EQU 


007BH 


007B 


02700 RFLAG$ EQU 


007BH 


0DD0 


02710 ROWCOL 2 ADDR 


EQU 0DD0H 


1BFF 


02720 RST38@ EQU 


1BFFH 


04C4 


02730 RSTOR$ EQU 


04C4H 


13A2 


02740 RWRIT0 EQU 


13A2H 


0238 


02750 S1DCB$ EQU 


0238H 


1D00 


02760 SBUFF$ EQU 


1D00H 


1A79 


02770 SET0EXEC 


EQU 1A79H 


0CF3 


02780 SET SCROLL 


EQU 0CF3H 


008C 


02790 SFCB$ EQU 


008CH 


007C 


02800 SFLAG$ EQU 


007CH 


007C 


02810 SFLAG$ EQU 


007CH 


0220 


02820 SIDCB$ EQU 


0220H 


0228 


02830 SODCB$ EQU 


0228H 


2142 


02840 SPACE4$ EQU 


2142H 


0380 


02850 STACKS EQU 


0380H 


0000 


02860 STARTS EQU 


0000H 


0000 


02870 STARTS EQU 


0000H 


000 B 


02880 SVCRETS EQU 


000BH 


0100 


02890 SVCTABS EQU 


0100H 


1B13 


02900 SYSERRS EQU 


1B13H 


004E 


02910 TCB$ EQU 


004EH 


007D 


02920 TFLAGS EQU 


007DH 


002D 


02930 TIMES EQU 


002 DH 


002D 


02940 TIMES EQU 


002 DH 


002C 


02950 TIMERS EQU 


002CH 


002C 


02960 TIMERS EQU 


002CH 


002B 


02970 TIMSLS EQU 


002BH 


002B 


02980 TIMSLS EQU 


002BH 


0713 


02990 TIMTSKS EQU 


0713H 


04C3 


03000 TMPMTS EQU 


04C3H 


07B1 


03010 TRACE INT 


EQU 07B1H 


0A8F 


03020 TYPHKl EQU 


0A8FH 


0B26 


03030 TYPTSKS EQU 


0B26H 


0013 


03040 USTORS EQU 


0013H 


007F 


03050 VFLAGS EQU 


007FH 


007F 


03060 VFLAGS EQU 


007FH 


0080 


03070 WRINTS EQU 


0080H 


0401 


03080 ZEROS EQU 


0401 H 


13A0 


03090 ZEROA0 EQU 


13A0H 


No end statement 




00000 Total 


errors 
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The Source 


SYSTEM Fil 


es 


SYS5/E 




00100 ;SYS5/EQU - Equates fr 


0000 


00110 
00120 ; 


TITLE 


<SYS5y 


1E32 


00130 $?1 


EQU 


1E32H 


1F1D 


00140 $?10 


EQU 


1F1DH 


1F2E 


00150 $?11 


EQU 


1F2EH 


1F38 


00160 $?12 


EQU 


1F38H 


1F8F 


00170 $?13 


EQU 


1F8FH 


1F9B 


00180 $?14 


EQU 


1F9BH 


1F9F 


00190 $?15 


EQU 


1F9FH 


1FA4 


00200 $?16 


EQU 


1FA4H 


1FC5 


00210 $?17 


EQU 


1FC5H 


1FDF 


00220 $?18 


EQU 


1FDFH 


200F 


00230 $?19 


EQU 


200FH 


1E37 


00240 $?2 


EQU 


1E37H 


2057 


00250 $?20 


EQU 


2057H 


205C 


00260 $?21 


EQU 


205CH 


2061 


00270 $?22 


EQU 


206 1H 


2062 


00280 $?23 


EQU 


2062 H 


2066 


00290 $?24 


EQU 


2066H 


20A6 


00300 $?25 


EQU 


20A6H 


20A9 


00310 $?26 


EQU 


20A9H 


20AA 


00320 $?27 


EQU 


20AAH 


20B7 


00330 $?28 


EQU 


20B7H 


20F1 


00340 $?28A 


EQU 


20F1H 


20F6 


00350 $?29 


EQU 


20F6H 


1E49 


00360 $?3 


EQU 


1E49H 


20F9 


00370 $?30 


EQU 


20F9H 


20FC 


00380 $?31 


EQU 


20FCH 


2102 


00390 $?32 


EQU 


2102H 


210B 


00400 $?33 


EQU 


210BH 


2117 


00410 $?34 


EQU 


2117H 


211A 


00420 $?35 


EQU 


211AH 


2180 


00430 $?36 


EQU 


2180H 


218E 


00440 $?37 


EQU 


218EH 


219A 


00450 $?38 


EQU 


219AH 


219C 


00460 $?39 


EQU 


219CH 


1EB4 


00470 $?4 


EQU 


1EB4H 


21BF 


00480 $?40 


EQU 


21BFH 


21C3 


00490 $?41 


EQU 


21C3H 


21C7 


00500 $?42 


EQU 


21C7H 


21CA 


00510 $?43 


EQU 


21CAH 


21E1 


00520 $?44 


EQU 


21E1H 


21EB 


00530 $?45 


EQU 


21EBH 


2223 


00540 $?46 


EQU 


2223H 


222B 


00550 $?47 


EQU 


222BH 


2233 


00560 $?48 


EQU 


223BH 


1EC4 


00570 $?5 


EQU 


1EC4H 


1EC5 


00580 $?6 


EQU 


1EC5H 


IEEE 


00590 $?8 


EQU 


1EEEH 


1F16 


00600 $?9 


EQU 


1F16H 


03B7 


00610 $A1 


EQU 


03B7H 


03 B8 


00620 $A2 


EQU 


03B8H 


03B9 


00630 $A3 


EQU 


03B9H 


1470 


00640 $CKEOF 


EQU 


1470H 


08F0 


00650 @$SYS 


EQU 


08F0H 


0000 


00660 @@1 


DEFL 


0000H 


0000 


00670 (3(31 


DEFL 


0000H 


0000 


00680 @@1 


DEFL 


0000H 


0000 


00690 @@2 


DEFL 


0000H 


0000 


00700 @(32 


DEFL 


0000H 
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The Source 


SYSTEM Fil 


es 


SYS5/I 


0000 


00710 @@2 


DEFL 


0000H 


0000 


00720 003 


DEFL 


0000H 


0000 


00730 003 


DEFL 


0000H 


0000 


00740 003 


DEFL 


0000H 


0000 


00750 004 


DEFL 


0000H 


0000 


00760 004 


DEFL 


0000H 


0000 


00770 004 


DEFL 


0000H 


1B08 


00780 0ABORT 


EQU 


1B08H 


1CDA 


00790 0ADTSK 


EQU 


1CDAH 


0877 


00800 0BANK 


EQU 


0877H 


1486 


00810 0BKSP 


EQU 


1486H 


196F 


00820 0BREAK 


EQU 


196FH 


1300 


00830 0BYTEIO 


EQU 


1300H 


0689 


00840 0CHNIO 


EQU 


0689H 


0553 


00850 0CKBRKC 


EQU 


0553H 


1993 


00860 0CKDRV 


EQU 


1993H 


158F 


00870 0CKEOF 


EQU 


158FH 


1CF5 


00880 0CKTSK 


EQU 


1CF5H 


1999 


00890 0CLOSE 


EQU 


1999H 


0545 


00900 0CLS 


EQU 


0545H 


197E 


00910 0CMNDI 


EQU 


197EH 


197B 


00920 0CMNDR 


EQU 


197BH 


0623 


00930 0CTL 


EQU 


0623H 


07A8 


00940 0DATE 


EQU 


07A8H 


199F 


00950 0DBGHK 


EQU 


199FH 


19C0 


00960 0DCINIT EQU 


19C0H 


19C4 


00970 0DCRES 


EQU 


19C4H 


19B5 


00980 0DCSTAT 


EQU 


19B5H 


1A2B 


00990 0DCTBYT EQU 


1A2BH 


19A0 


01000 0DEBUG 


EQU 


19A0H 


03E1 


01010 0DECHEX 


EQU 


03E1H 


18F7 


01020 0DIRCYL 


EQU 


18F7H 


18BB 


01030 0DIRRD 


EQU 


18BBH 


1803 


01040 0DIRWR 


EQU 


1803H 


06 E3 


01050 0DIV16 


EQU 


06E3H 


1927 


01060 0DIV8 


EQU 


1927H 


19AF 


01070 0DODIR 


EQU 


19AFH 


19A9 


01080 0DOKEY 


EQU 


19A9H 


0642 


01090 0DSP 


EQU 


0642H 


052D 


01100 0DSPLY 


EQU 


052DH 


1B0F 


01110 0ERROR 


EQU 


1B0FH 


1B0B 


01120 0EXIT 


EQU 


1B0BH 


1984 


01130 0FEXT 


EQU 


1984H 


196A 


01140 0FLAGS 


EQU 


196AH 


199C 


01150 0FNAME 


EQU 


199CH 


0000 


01160 0FRENCH 


EQU 


0000H 


1981 


01170 0FSPEC 


EQU 


1981H 


1874 


01180 0GATRD 


EQU 


1874H 


1875 


01190 0GATWR 


EQU 


1875H 


0000 


01200 0GERMAN EQU 


0000H 


0638 


01210 0GET 


EQU 


0638H 


1990 


01220 0GTDCB 


EQU 


1990H 


1A1E 


01230 0GTDCT 


EQU 


1A1EH 


19B2 


01240 0GTMOD 


EQU 


19B2H 


19E4 


01250 0HDFMT 


EQU 


19E4H 


07BD 


01260 0HEX16 


EQU 


07BDH 


07C2 


01270 0HEX8 


EQU 


07C2H 


06F6 


01280 0HEXDEC 


EQU 


06F6H 


1948 


01290 0HIGH$ 


EQU 


1948H 


1897 


01300 0HITRD 


EQU 


1897H 


1898 


01310 0HITWR 


EQU 


1898H 
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The Source 


SYSTEM Fil< 


2S 


SYS5/E( 


0000 


01320 (3HZ50 


EQU 


0000 H 


0086 


01330 (s>ICNFG 


EQU 


0086 H 


198D 


01340 @INIT 


EQU 


198DH 


0000 


01350 (3INTL 


EQU 


0000H 


1BF2 


01360 @IPL 


EQU 


1BF2H 


0630 


01370 @JCL 


EQU 


0630H 


0635 


01380 @KBD 


EQU 


0635H 


0628 


01390 @KEY 


EQU 


0628H 


0585 


01400 0KEYIN 


EQU 


0585H 


0089 


01410 0KITSK 


EQU 


0089H 


0089 


01420 0KITSK 


EQU 


0089H 


1CD0 


01430 (9KLTSK 


EQU 


1CD0H 


1B38 


01440 ©LOAD 


EQU 


1B38H 


14B3 


01450 @LOC 


EQU 


14B3H 


14DE 


01460 0LOF 


EQU 


14DEH 


0503 


01470 0LO6ER 


EQU 


0503H 


0500 


01480 (3L0G0T 


EQU 


0500H 


0000 


01490 (3M0D2 


EQU 


0000H 


FFFF 


01500 (i>M0D4 


EQU 


0FFFFH 


0530 


01510 @MSG 


EQU 


0530H 


06C9 


01520 0MUL16 


EQU 


06C9H 


190 A 


01530 0MUL8 


EQU 


190AH 


0066 


01540 @NMI 


EQU 


0066 H 


198 A 


01550 0OPEN 


EQU 


198AH 


0084 


01560 @OPREG 


EQU 


0084 H 


1987 


01570 (3PARAM 


EQU 


1987H 


0382 


01580 @PAUSE 


EQU 


0382 H 


14A2 


01590 (3PEOF 


EQU 


14A2H 


1434 


01600 0POSN 


EQU 


1434H 


0528 


01610 SPRINT 


EQU 


0528H 


063D 


01620 @PRT 


EQU 


063DH 


0645 


01630 @PUT 


EQU 


0645 H 


19AC 


01640 (3RAMDIR 


EQU 


19ACH 


19D8 


01650 (PRDHDR 


EQU 


19D8H 


19F4 


01660 0RDSEC 


EQU 


19F4H 


18D8 


01670 0RDSSC 


EQU 


18D8H 


19E0 


01680 (3RDTRK 


EQU 


19E0H 


1513 


01690 0READ 


EQU 


1513H 


19A6 


01700 ^REMOVE 


EQU 


19A6H 


1996 


01710 (3RENAME 


EQU 


1996H 


149B 


01720 GREW 


EQU 


149BH 


1CD7 


01730 (3RMTSK 


EQU 


1CD7H 


1CEB 


01740 (3RPTSK 


EQU 


1CEBH 


1473 


01750 (9RREAD 


EQU 


1473H 


19D4 


01760 (3RSLCT 


EQU 


19D4H 


0000 


01770 (3RST00 


EQU 


0000H 


0008 


01780 0RST08 


EQU 


0008H 


0010 


01790 0RST10 


EQU 


0010H 


0018 


01800 (3RST18 


EQU 


0018H 


0020 


01810 0RST20 


EQU 


0020H 


0028 


01820 (3RST28 


EQU 


0028H 


0030 


01830 0RST30 


EQU 


0030H 


0038 


01840 (3RST38 


EQU 


0038H 


0FE9 


01850 0RSTNMI 


EQU 


0FE9H 


19C8 


01860 (3RST0R 


EQU 


19C8H 


0680 


01870 (3RSTREG EQU 


0680H 


IBID 


01880 @RUN 


EQU 


1B1DH 


13AD 


01890 0RWRIT 


EQU 


13ADH 


19D0 


01900 0SEEK 


EQU 


19D0H 


1421 


01910 0SEEKSC 


; EQU 


1421H 


1430 


01920 @SKIP 


EQU 


1430H 
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The Source 


SYSTEM Fil 


es 


SYS5/EI 


19BC 


01930 @SLCT 


EQU 


19BCH 


0392 


01940 (3S0UND 


EQU 


0392H 


19CC 


01950 0STEPI 


EQU 


19CCH 


078D 


01960 0TIME 


EQU 


078DH 


FFFF 


01970 @USA 


EQU 


0FFFFH 


0B99 


01980 0VDCTL 


EQU 


0B99H 


0D38 


01990 (PVDCTL3 


EQU 


0D38H 


1560 


02000 @VER 


EQU 


1560H 


19DC 


02010 @VRSEC 


EQU 


19DCH 


14EC 


02020 @WEOF 


EQU 


14ECH 


1979 


02030 @WHERE 


EQU 


1979H 


1531 


02040 (3WRITE 


EQU 


1531H 


19E8 


02050 (3WRSEC 


EQU 


19E8H 


19EC 


02060 @WRSSC 


EQU 


19ECH 


19F0 


02070 0WRTRK 


EQU 


19F0H 


0D42 


02080 @ VDCTL 


EQU 


0D42H 


0DF1 


02090 ADDR 2 1 


ROWCOL 


EQU 


006A 


02100 AFLAG$ 


EQU 


006AH 


1FF1 


02110 AUTO? 


EQU 


1FF1H 


0201 


02120 BAR$ 


EQU 


0201 H 


439D 


02130 BOOTST$ EQU 


439DH 


1C60 


02140 BREAK? 


EQU 


1C60H 


1C88 


02150 BRKVEC$ EQU 


1C88H 


0200 


02160 BUR$ 


EQU 


0200H 


0A7B 


02170 CASHK$ 


EQU 


0A7BH 


00E0 


02180 CFCB$ 


EQU 


00E0H 


00E0 


02190 CF6FCB$ EQU 


00E0H 


006C 


02200 CFLAG$ 


EQU 


006CH 


006C 


02210 CFLAG$ 


EQU 


006CH 


1A7F 


02220 CKMODI3 


EQU 


1A7FH 


1568 


02230 CKOPEN0 


EQU 


1568H 


1FD6 


02240 CMD AH 


EQU 


1FD6H 


1E81 


02250 CMD C 


EQU 


1E81H 


208B 


02260 CMD CI 


EQU 


208BH 


1EAB 


02270 CMD D 


EQU 


1EABH 


1EC9 


02280 CMD DEC 


EQU 


1EC9H 


1F82 


02290 CMD G 


EQU 


1F82H 


1EB1 


02300 CMD INC 


EQU 


1EB1H 


1ECE 


02310 CMD 


EQU 


1ECEH 


203F 


02320 CMD R 


EQU 


203FH 


1E9D 


02330 CMD S 


EQU 


1E9DH 


1EA1 


02340 CMD U 


EQU 


1EA1H 


1E9C 


02350 CMD X 


EQU 


1E9CH 


203F 


02360 CONFIG$ EQU 


203FH 


0300 


02370 CORES 


DEFL 


0300H 


1CFF 


02380 CORES 


DEFL 


1CFFH 


1BFF 


02390 CORES 


DEFL 


1BFFH 


1948 


02400 CORES 


DEFL 


1948H 


1948 


02410 CORES 


DEFL 


1948H 


F800 


02420 CRTBGNS EQU 


0F800H 


221A 


02430 CV2HEX(9 


EQU 


221AH 


16AE 


02440 CYL GRN EQU 


16AEH 


1A26 


02450 D0FBYT8 EQU 


1A26H 


0033 


02460 DATES 


EQU 


0033H 


0033 


02470 DATES 


EQU 


0033H 


04C7 


02480 DAYTBLS EQU 


04C7H 


00A0 


02490 DBGSVS 


EQU 


00A0H 


0031 


02500 DCBKLS 


EQU 


0031 H 


0470 


02510 DCTS 


EQU 


0470H 


1A29 


02520 DCTBYT80 


EQU 


1A34 


02530 DCTFLDP 


EQU 


1A34H 



Page 



0DF1H 



1A29H 
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The Source 



SYSTEM Files 



SYS5/EQU 



Page 00005 



006 D 
006 D 
2300 
0846 
0B94 
0210 
0C44 
0CB8 
0C8C 
0C89 
0C9B 
0000 
0BCB 
0BCC 
0CCE 
0BEA 
04C0 
201B 
04C2 
0FF4 
0206 
2150 

006 E 
0817 
19A4 
000E 
000E 
006F 
006A 
006A 
2031 
0DAE 
0750 
21E4 
040E 
1A6C 
0072 
0072 
0420 
21D5 
21C9 
003C 
003D 
003E 
003E 
0203 
0024 
00C0 
0230 
0026 

07 D6 
0074 
0074 
08FC 
0208 
0202 
0023 
0075 
1566 
001 E 



02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 



DFLA6$ EQU 
DFLAG$ EQU 
DIRBUF$ EQU 
DIS_DO RAM 
DODATAl EQU 
DODCB$ EQU 
DO_CONTROL 
DO_DSPCHAR 
DO_INVERT_DIS 
DO_INVERT_ENA 
DO_INVERT_OFF 
DO_MASK EQU 
DO_RET EQU 
DO RET1 EQU 
DO_SCROLL 
DO_TABS EQU 
DSKTYP$ EQU 
DSPASC0 EQU 
DTPMT$ EQU 
DVREND$ EQU 
DVRHI$ EQU 
ED_TAB EQU 
EFLAG$ EQU 
ENADIS DO_RAM 
EXTDBGl EQU 
FDDINT$ EQU 
FDDINT$ EQU 
FEMSK$ EQU 
FLGTAB$ EQU 
FLGTAB$ EQU 
GETASCP EQU 
GET_@ ROWCOL 
HERTZI EQU 



HEXING 

HIGH$ 

HKRES$ 

IFLAG$ 

IFLAG$ 

INBUFS 

INPUC0 

INPUTS 

INTIM$ 

INTMSK$ EQU 

INTVC$ EQU 

INTVCS 

JCLCB$ 

JDCB$ 

JFCB$ 

JLDCB$ 

JRET$ 

KCK@ 

KFLAG$ 

KFLAG$ 

KIDATA$ EQU 

KIDCB$ EQU 

LBANK$ 

LDRV$ 

LFLAG$ 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



LNKFCB0 EQU 



LOW$ 
LSVC$ 



EQU 
EQU 



006 DH 

006 DH 

2300H 

EQU 

0B94H 

0210H 

EQU 

EQU 

EQU 

EQU 

EQU 

0000H 

0BCBH 

0BCCH 

EQU 

0BEAH 

04C0H 

201BH 

04C2H 

0FF4H 

0206H 

2150H 

006 EH 

EQU 

19A4H 

000EH 

000EH 

006 FH 

006AH 

006AH 

2031H 

EQU 

0750H 

21E4H 

040EH 

1A6CH 

0072H 

0072H 

0420H 

21D5H 

21C9H 

003CH 

003DH 

003EH 

003 EH 

0203H 

0024H 

00C0H 

0230H 

0026H 

07D6H 

0074H 

0074H 

08FCH 

0208H 

0202H 

0023H 

0075H 

1566H 

001EH 

000 DH 



0846 H 



0C44H 
0CB8H 
0C8CH 
0C89H 
0C9BH 



0CCEH 



0817H 



0DAEH 
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SYSTEM Files 


SYS5/EQU 


2400 


03150 MAXCORS EQU 


2400H 


0401 


03160 MAXDAY$ EQU 


0401 H 


3000 


03170 MINCOR$ EQU 


3000H 


0076 


03180 MODOUTS EQU 


0076H 


0076 


03190 MODOUTS EQU 


0076H 


04 DC 


03200 MONTBLS EQU 


04DCH 


0077 


03210 NFLAG$ EQU 


0077H 


0078 


03220 OPREG$ EQU 


0078H 


0078 


03230 OPREG$ EQU 


0078H 


086E 


03240 OPREG SV AREA 


EQU 086EH 


0835 


03250 OPREG SV PTR 


EQU 0835H 


211F 


03260 OP TAB EQU 


211FH 


14 DC 


03270 ORARET@ EQU 


14DCH 


003B 


03280 OSRLS$ EQU 


003BH 


0085 


03290 OSVER$ EQU 


0085 H 


0069 


03300 OVRLY$ EQU 


0069H 


0410 


03310 PAKNAM$ EQU 


0410H 


0382 


03320 PAUSED EQU 


0382H 


07AF 


03330 PCSAVE$ EQU 


07AFH 


001 B 


03340 PDRV$ EQU 


001BH 


001 B 


03350 PDRVS EQU 


001BH 


001 C 


03360 PHIGH$ EQU 


001CH 


0218 


03370 PRDCB$ EQU 


0218H 


0DCD 


03380 PUTA0DE EQU 


0DCDH 


0DCA 


03390 PUT @ EQU 


0DCAH 


0DC6 


03400 PUT @ ROWCOL 


EQU 0DC6H 


007B 


03410 RFLAGI EQU 


007BH 


007B 


03420 RFLAG$ EQU 


007BH 


0DD0 


03430 ROWCOL 2 ADDR 


EQU 0DD0H 


1BFF 


03440 RST38@ EQU 


1BFFH 


04C4 


03450 RSTOR$ EQU 


04C4H 


13A2 


03460 RWRIT0 EQU 


13A2H 


0238 


03470 S1DCB$ EQU 


0238H 


1D00 


03480 SBUFF$ EQU 


1D00H 


1A79 


03490 SET0EXEC 


EQU 1A79H 


0CF3 


03500 SET SCROLL 


EQU 0CF3H 


008C 


03510 SFCB$ EQU 


008CH 


007C 


03520 SFLAG$ EQU 


007CH 


007C 


03530 SFLAG$ EQU 


007CH 


0220 


03540 SIDCB$ EQU 


0220H 


0228 


03550 SODCBS EQU 


0228H 


2142 


03560 SPACE4$ EQU 


2142H 


0380 


03570 STACKS EQU 


0380H 


0000 


03580 STARTS EQU 


0000H 


0000 


03590 STARTS EQU 


0000H 


000 B 


03600 SVCRETS EQU 


000 BH 


0100 


03610 SVCTABS EQU 


0100H 


1B13 


03620 SYSERRS EQU 


1B13H 


004E 


03630 TCB$ EQU 


004EH 


007D 


03640 TFLAGS EQU 


007DH 


002D 


03650 TIMES EQU 


002DH 


002D 


03660 TIMES EQU 


002DH 


002C 


03670 TIMERS EQU 


002CH 


002C 


03680 TIMERS EQU 


002CH 


002B 


03690 TIMSLS EQU 


002BH 


002B 


03700 TIMSLS EQU 


002BH 


0713 


03710 TIMTSKS EQU 


0713H 


04C3 


03720 TMPMTS EQU 


04C3H 


07B1 


03730 TRACE INT 


EQU 07B1H 


0A8F 


03740 TYPHKl EQU 


0A8FH 


0B26 


03750 TYPTSKS EQU 


0B26H 
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The Source SYSTEM Files SYS5/EQU Page 00007 

0013 03760 UST0R$ EQU 0013H 

007F 03770 VFLAG$ EQU 007FH 

007F 03780 VFLAG$ EQU 007FH 

2211 0379J3 WR1HEX0 EQU 2211H 

2215 03800 WR2HEX0 EQU 2215H 

0080 03810 WRINT$ EQU 0080H 

2231 03820 WRSPA0 EQU 2231 H 

2157 03830 XY_TAB EQU 2157H 

0401 03840 ZEROS EQU 0401 H 

13A0 03850 ZEROA0 EQU 13A0H 

No end statement 
Total errors 
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